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Preface 


This book is intended for people who can already program, and is 
specifically aimed at those who can program in either BASIC or 
Pascal. As such, it is a ‘conversion course’, and not suited for the 
newcomer to programming. 

It teaches FORTH by example and comparison, and at the same 
time develops code that will hopefully prove useful in the future. For 
example, subroutines arc provided for manipulating strings, the pro¬ 
vision of character literals, and the implementation of multi¬ 
dimensional arrays. A side effect of this approach is to provide some 
insight into Pascal and BASIC. 

The book teaches FORTH using only those instructions that are 
available on almost all versions of FORTH, relating any differences 
between this and other versions as it goes. Where instructions are 
used that step outside the ‘common’ set, definitions of those instruc¬ 
tions are given so that all FORTH systems (in particular, Dragon- 
FORTH, the Jupiter Ace, and fig-FORTH systems) can run the 
examples given and develop the same answers to exercises. 

It should be stated that the book does not attempt to teach 
efficient FORTH programming, which is a subject that would make 
a book on its own! Nor does it attempt to teach all of the language— 
that would need a very much longer book. But it does attempt to 
take a programmer through sufficient FORTH, showing how to har¬ 
ness its power, to enable him to develop advanced applications. 

S. O. 
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1 

Introduction to FORTH 


FORTH is a language that has, relatively recently, become particu¬ 
larly popular on microcomputers. The reason is quite simple: it is 
easy to use, and runs a lot faster than interpreted BASIC. Until 
fairly recently, users of micros have written their programs in 
BASIC because it is easy to learn, easy to use, and easy to debug; 
but unfortunately it is rather slow. As micros have developed and 
become more popular, so people have expected more of them: a 
program that impressed someone two years ago does not raise an 
eyebrow today, and a delay in response that was acceptable yester¬ 
day is not acceptable today. 

So programmers want a language that runs faster and is therefore 
considered to be ‘better’. A simple step forward (in terms of speed) is 
to use a BASIC compiler rather than a BASIC interpreter. This 
translates a program written in BASIC into machine code, which 
then runs very much faster than the interpreted program. The trou¬ 
ble is that (compared to interpreters) compilers arc a pain in the 
neck: editors are often separate from them, the compilation process 
is long-winded, debugging is a lot more complicated, and so on. 
True, the program runs fast when you eventually get a working ver¬ 
sion, but program development is not as pleasant as that of an inter¬ 
pretive BASIC (or indeed any interpreted language). 

An alternative to using a compiler is to write (usually only some 
of) the program in Assembler. In particular, if there is a piece of 
code that is frequently executed (such as in a loop), using Assembler 
for that section can improve the speed of a BASIC program quite 
considerably, and you can keep the pleasures of program develop¬ 
ment using an interpretive language. Although this can be done 
quite successfully, it is at best a nuisance to programmers who want 
to exchange software, as a change of machine often means rewriting 
your Assembler sections of code. And while Assembler program¬ 
ming is claimed to be easy by those who can do it, in fact for most 
people it is not easy to do. 

FORTH is a bridge between those who prefer ‘high-level’ lan¬ 
guages (like BASIC and Pascal) and those who require the cxccu- 
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tion speed of Assembler. It is, in fact, a ‘high-level assembler’, with 
all the advantages of an assembler and none of the headaches, being 
much easier to learn and use. It runs very much faster than BASIC, 
partly because some of the work done by the BASIC interpreter is 
done by you instead, and partly because a FORTH program is 
‘compiled’ into a series of subroutine calls (of which more in Chap¬ 
ter 9). At the same time, FORTH still looks like an interpreter, with 
all the advantages that that entails: easy program development, and 
easy debugging. 


What is FORTH? 

FORTH is still a developing language, and that creates one minor 
problem: it docs not have a single, agreed set of instructions. Just as 
with BASIC, there are a number of versions of it around. There are 
two main ones, however: FORTH-79, and fig-FORTH. 

FORTH-79 is a version produced by the FORTH Standards 
team, being a direct descendant of FORTH-77, which was produced 
by the FORTH Users Group (Europe). The document that defines 
FORTH-79 is split into three parts. The first is the FORTH-79 
Standard, which defines all the instructions (called ‘words’ in 
FORTH) that must be present for the implementation to be able to 
advertise itself as a FORTH-79 implementation. The second part is 
referred to as the Extension to the Standard: it covers instructions 
for handling numbers that are larger than normal (sec Chapter 6), 
and a few instructions to allow the programmer to slip into ‘real’ 
Assembler if that facility is needed (it shouldn’t be!). The third part 
is the Reference Word Set, which is a list of instructions that may 
become part of the Standard in the future. 

The purpose of any standard is to ensure that a program written 
conforming to it for one machine will run on any other machine that 
conforms to it without alteration. Thus each implementation of the 
FORTH-79 Standard and its Extension has instructions that arc 
guaranteed to work in the same way as one another. However, this is 
not true for instructions in the Reference Word Set—instructions 
that appear in this set may not behave in the same way for all imple¬ 
mentations. Where this may create a problem, the book gives a cau¬ 
tion and a suitable definition which will ensure that you can 
‘redefine’ the action of the instruction so that it docs behave in the 
way assumed by the book. 

fig-FORTH is a version of FORTH defined by the FORTH 
Interest Group (hence fig). Roughly speaking, it includes the 
instructions in all three sections of the FORTH-79 document, plus a 
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few more. However, not all the FORTH-79 instructions arc present 
in fig-FORTH, and indeed some of those that arc present behave 
differently from the FORTH-79 versions. As with the FORTH-79 
Reference Word Set, where an instruction that may not be defined in 
fig-FORTH is used in the exercises, or where one behaves differently 
from the FORTH-79 instruction, a ‘redefinition’ of it is usually 
included for you (normally in Chapter 11) to make it behave like the 
FORTH-79 instruction. 

FORTH is very different from most languages, both in how it is 
written and how it is developed. Instead of writing instructions in 
the time-honoured tradition known as ‘Infix notation’ (c.g. 
5 + 6 + 7), it uses ‘Reverse Polish notation’ (c.g. 56 + 7+), 
named after a well-known Polish mathematician with an unpro¬ 
nounceable name. That often puts people off, until they realise that 
various pocket calculators require this very notation, and hence it 
cannot be too difficult. 

Not only does FORTH use peculiar notation, but it is a ‘stack’- 
based language. Most languages use variables to hold current 
values, and ‘dummy parameters’ to represent arguments to sub¬ 
routines; in the main, FORTH uses a ‘stack’ for such things. A stack 
can be likened to an ‘in tray’ in an office: any new items are put on 
the top of the pile of papers; and as it is easier to look at the top item 
than at the bottom one, items are usually taken off the pile from the 
top. Thus with a stack, the last item to be placed in the pile is 
usually the first to be taken off it. Hence a stack is sometimes refer¬ 
red to as a ‘last in, first out’ (LIFO) data structure; the newest item 
in the stack is known as the ‘top of stack’ (TOS) item, with the item 
‘below’ the TOS item known as the ‘second on stack’ (20S) item. 

FORTH docs have variables, but they are used rarely in compari¬ 
son with the use of variables in other languages. As we shall see, 
using a stack instead of variables does not cause great problems. 
Normally the compiler (in a language like Pascal) has a stack that 
you do not see, and the compiler manipulates it for you; but 
FORTH leaves that work to you. At the very least, it expands your 
knowledge of how computers work. 

In spite of the fact that FORTH compiles its programs, program 
development is just as simple as with BASIC. Editing, compiling 
and running programs arc integrated into a single phase, so that 
changing a program is very straightforward and causes no delay 
while waiting for the compiler to load and churn through the code. A 
FORTH program is usually developed as a series of subroutines; 
these subroutines build up into a library, which can then be useful 
for a number of programs. Thus as you write more FORTH prog¬ 
rams you have less and less to do. The subroutines developed for 
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previous programs often provide most of the code for the new 
program! 


Assumptions made by the text 

The text of this book teaches a common core of FORTH, which 
should be runnable on any machine. Where necessary, definitions 
for instructions that may be absent from your system have been pro¬ 
vided so that all the exercises can be tackled, and Chapter 11 gives 
details of any important differences that may exist. As far as possi¬ 
ble, the exercises provide at least some subroutines that will be of 
general use to you: for example, code is given to enable you to imple¬ 
ment string subroutines (not a part of the FORTH-79 Standard at 
all) and multidimensional arrays. All the FORTH examples have 
been run on MMS-FORTH (available for the TRS-80 and IBM 
Personal Computer only), using only those words that are in accord 
with FORTH-79 (MMS-FORTH goes beyond the Standard); the 
same is true of the Jupiter Ace, though its implementation of 
FORTH is somewhat different from FORTH-79, not always using 
the same means of input and output. 

The book assumes that you are able to program either in BASIC 
or in Pascal, and teaches by comparison. Thus in the early part of 
the book, sample programs are given in all three languages so that 
you can compare them. It should be stressed that the examples and 
the sample answers have been written to help you to sec how 
FORTH can be used to solve particular problems. They are not 
intended to show you shortcuts (except in rare instances), but to 
leave you understanding how to write FORTH programs. 

At the same time, the book does not attempt to cover every 
FORTH instruction. The manual for your micro’s implementation 
of FORTH will list all the instructions that it provides, and by the 
time that you have read the book and completed all the exercises, 
any additional instructions will be easily understood. 

Before we get started on FORTH itself, you need to be clear on 
which version you will be learning; in fact you can learn most ver¬ 
sions with this book. While it is true that some fig-FORTH instruc¬ 
tions differ from the FORTH-79 instructions that arc used as a basis 
for the text, there are few of these (fig-FORTH is largely a superset 
of FORTH-79) and most implementations comply with one or other 
of these two versions. Where any real differences between them 
occur they are noted in Chapter 11, which looks at a number of ver¬ 
sions of FORTH, including implementations for the Jupiter Ace, the 
Dragon, the TRS-80, and the IBM Personal Computer. All the cxer- 
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ciscs and sample programs given in the book use only FORTH-79 
instructions. Where a particular implementation does not have a 
necessary instruction, you should find a definition of it in Chapter 
11, and before trying the examples and the problems set in a chapter 
it is worth checking the relevant section of Chapter 11 to look for any 
instructions that are missing or that behave differently from those of 
FORTH-79. 
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2 

Arithmetic 


This chapter explains some of the features of FORTH that are very 
different from other languages, and introduces some of the fun¬ 
damental operators (or functions). All the work in this chapter is 
done using your computer as if it were a simple calculator, the 
equivalent in BASIC of ‘immediate mode’, when a statement is 
executed as soon as it has been typed. It is not until Chaper 3 that 
the method used to define programs (rather than just execute them) 
is dealt with. 


Reverse Polish notation 

As already stated, FORTH looks different from other languages, 
even in its simplest operations. The most obvious difference is the 
way in which simple arithmetic operations arc written down: instead 
of the usual X T Y being written, X Y + is written instead. This 
might seem unusual, but all that is happening is that some of the 
work that the compiler or interpreter normally docs is being trans¬ 
ferred to the programmer. Most languages allow you to write in a 
‘natural’ way, known as Infix notation. The computer then converts 
this into an easier-to-handle form for its own working, this form 
being known as Reverse Polish, or Postfix, notation. Those who are 
sure of this notation can skip this section. 

Reverse Polish notation is merely another way of writing down an 
arithmetic expression, with standard rules for converting between 
Infix and Reverse Polish. The format is very simple: each set of 
values to be manipulated by an arithmetic function (c.g. the X and 
Y above, usually referred to as the ‘operands’ of the function) is 
followed by that function (e.g. the addition sign above, usually 
known as an ‘operator’). Thus X + Y is written in Reverse Polish 
as X Y 4- and A*B is written as AB*. For FORTH, spaces must 
separate the ‘A’ from the ‘B’ and the ‘B’ from the ‘*’, giving the 
form A B *. 
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This is straightforward enough when the expression only requires 
a single operator, but what happens when it is necessary to write 
something like X + Y + Z? It is then necessary to break down the 
sequence of arithmetic operations so that each operator in the 
expression follows the operands that it is to work on. For example, 
X + Y + Z can be written down in English as ‘add X to Y, then add 
the result of this addition to Z’, or in programming notation as 
(X + Y) + Z. Each part of the arithmetic sequence may now be 
written in Reverse Polish: the operation X 4- Y is simply X Y T; if 
the result of this were in R, say, the remaining operation would be to 
add R and Z, i.e. R T Z, which would be written as R Z +. Simply 
replacing R by the Reverse Polish sequence XY + then gives the 
sequence X Y + Z +, and this is the sequence for X + Y 4- Z. (As 
an aside, placing the brackets differently produces a different, but 
equally valid, Reverse Polish expression.) 

Any complex arithmetic expression can be broken down in this 
way. As an example, the expression 

X*Z-Y/X 

can be broken up by writing it as 
(X * Z) - (Y / X) 

Each part of the parenthesised expression can then be written down 
as follows: 

X*Z 
Y/X 

R1 - R2 where R1 = (X * Z) 
and R2 = (Y / X) 

Substituting for R1 in the second column, line 3 can be rewritten as 

(X * Z) - R2 (X Z *) R2 - 

and then substituting for R2 in the above gives 

(X * Z) - (Y / X) (X Z *) (Y X /) - 

In Reverse Polish, brackets arc always unnecessary, and hence the 
expression would be written simply as 

XZ* Y X/- 

Reverse Polish is an efficient way (for the computer) of expressing a 
calculation, and the fact that the programmer transforms the normal 
Infix format into Reverse Polish helps FORTH to be more efficient. 
The cost is that the programmer has to do more work. 


XZ* 

YX/ 

R1 R2 - 


FFM-B 
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The stack 


Reverse Polish is just another way of writing an expression to sim¬ 
plify the work of the compiler, and the fact that this work is under¬ 
taken by the programmer rather than by FORTH helps the com¬ 
piler to be less complicated and to work faster. The introduction of a 
‘stack’ pushes this idea further along. As stated in Chapter 1, a stack 
is a mechanism that can be compared to an ‘in tray’ in an office: 
each new item to be dealt with is placed on the top of the tray, and it 
is much easier to look at the top item than it is to look further down 
the tray. A stack normally allows access only to the top few items, 
and is used in FORTH mainly to avoid having to allocate variables, 
another task that is time-consuming for the compiler and its avoi¬ 
dance again providing faster compilation and an improvement to 
FORTH’s efficiency. 

Reverse Polish notation is designed to make use of a stack for 
efficient calculation. When the expression 

(5 + 6) * 3 - 7 

is to be evaluated, it will be written in FORTH as 
56+3*7- 

The spaces are important, remember. This sequence is treated by 
the FORTH compiler as a series of instructions to carry out the fol¬ 
lowing actions. 

(a) Put ‘5’ on the stack; then place ‘6’ on the stack (above ‘5’), mak¬ 
ing the stack look like Figure 2.1a. Conventionally, the stack is 
always shown with the most recent stack entry towards the 
right-hand side of the page, and that convention is adhered to 
throughout this book. Thus Figure 2.1a will normally be written 
as 5 6. 

(b) The ‘ + ’ operator then takes the two top-most items on the stack, 
adds them together, deletes them from the stack, and places the 
result of the addition on the stack as the top item, giving Figure 
2.1b. 

(c) The ‘3’ is then put on the stack (above the last result), as in 
Figure 2.1c. 

(d) The **’ operator then takes the two items now on top of the stack 
(‘IT and ‘3’) and multiplies them together, deleting them from 
the stack and placing the result on the top of the stack, giving 
Figure 2.Id. 

(e) The ‘7’ is then placed on the top of the stack, giving Figure 2.1e. 

(f) The ‘-’ operator then subtracts the top item (‘7’) on the stack 
from the item (‘33’) below it, deleting these two operands from 
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the stack, and inserting the result of the subtraction at the top of 
the stack, thus giving Figure 2.If. 


Top of stack 

6 

(a) 

5 


Top of stack 

11 

(b) 

Top of stack 

3 

(0 

11 


Top of stack 

33 

(d) 

Top of stack 

7 

(e) 

33 


Top of stack 

26 

(f) 


Fig. 2.1. Changes in the stack as the Reverse 
Polish expression 56-1-3*7 — is executed 


This sequence of operations is precisely that which would be fol¬ 
lowed in BASIC or Pascal, or indeed any other language, if the 
statement had been written in Infix notation. The difference with 
FORTH is that it is left to you not only to convert from Infix to 
Reverse Polish, but also to deal with the stack yourself rather than 
leave it to the compiler to organise. In other words, in most lan¬ 
guages the computer remembers which locations represent which 
variables, but in FORTH you have to do this job for yourself 

The stack is all-important in FORTH. If you prefer to stay with 
the sort of variables you are used to, a lot of the language’s efficiency 
will be lost. It is important, therefore, that the prospective FORTH 
user comes to grips with both Reverse Polish and the stack. 
However, the sort of stack usage described above is not a lot of use 
without a lot more supporting functions: for instance, how do you 
find out the answer to a calculation (the result is put on the stack, 
remember). Given 6 and 5 as the top 2 items on the stack it is easy to 
calculate 6 — 5, but how can the inverse calculation (i.e. 5 — 6) be 
done? 

The answer, of course, is that there are a number of functions pro¬ 
vided to manipulate the stack, and we shall meet some of them later 
in the chapter. We can deal with one important stack function (or, to 
use the more general term, operator) straight away, however: the . 
(period). While it does not look much like most operators that 
appear in other languages, the period is an operator, predefined in 
FORTH, that takes a number from the top of the stack (deleting it 
as it does so) and prints it at the terminal. Thus to see whether the 
calculation 
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(5 + 6) * 3 - 7 

yields the expected result of 26, try typing: 

56+3*7-. 

Hopefully you obtained 26 printed on the screen! 

The stack is a last-in, first-out (LIFO) data structure: the last 
item put into it is the first item obtained from it. This is best illus¬ 
trated by typing in the data: 

1 2 3 4 5 . 

and you should find that the data is printed in reverse order. Figure 
2.2 illustrates what happens to the stack as the data is inserted, and 
Figure 2.3 the effect of the V operator for printing. Now try typing: 

12 3.... 

Yes, there should be three numbers but four periods. If you typed it 
correctly, you should have seen as output something like the line: 

3 2 1 21097 ? STACK EMPTY! 

The 21097 (or some other peculiar number) has been printed 
because the print routine was asked to print four items when only 
three were present, and rather than do nothing it simply prints 
whatever number it finds in the storage location immediately below 
the stack, and then gives an error message. This type of error is 
known as Stack Underflow, and means that your program has gone 


Top of stack 1 

Top of stack 2 
1 

Top of stack 3 
2 
1 


After typing T 
After typing '2' 

After typing '3' 


Top of stack 4 

3 
2 
1 

Top of stack 5 

4 
3 
2 
1 


After typing '4' 


After typing '5' 


Fig. 2.2.T he stack grows (upwards) as 
numbers are entered into the FORT H 
system 
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Top of stack 

4 

After typing the first 

3 



2 

1 


Top of stack 

3 

After typing the second 

2 

1 


Top of stack 

2 

1 

After typing the third 

Top of stack 

1 

After typing the fourth 

Top of stack 

(empty) After typing the fifth 

Fig. 2 . 3. The 

stack 

shrinks again as items a 


removed from it (in this ease by the print instruc¬ 
tion V) 

wrong. As will be seen, it is essential for you to keep track of the 
stack (work that is normally done by the compiler) and ensure that 
your program docs not try to remove more values from the stack 
than are there. 

Unlike most programming languages that are stack based, 
FORTH does not necessarily report an error when the stack under¬ 
flows. Try typing 

5 * 

and the odds arc that FORTH will happily say OK. The only 
guarantee you have is that underflow will be reported if you try to 
remove an item from an empty stack (such as with the . word). 

Arithmetic limitations 

So far, the type of calculations we have performed have been kept 
simple and have used small numbers. In practice, of course, calcula¬ 
tions are unlikely to constrain themselves in this way, so what hap¬ 
pens if we start using much larger numbers? Try typing 

510 100 * . 

The answer is not very sensible, is it? The problem is that arithmetic 
in FORTH (and indeed in many languages) is carried out in as sim¬ 
ple a way as possible, using the built-in facilities of the machine. 
This allows a lot of the work that a programmer wants to do to be 
done efficiently and quickly. After all, why take the time to multiply 
10-digit numbers together if in most eases two-digit numbers will 
do? 
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However, it does sometimes happen that we want to multiply 10- 
digit numbers together, so how can the language implementation 
provide speed for the normal case while still providing facilities for 
the abnormal? The answer is to have a ‘default’ number size that the 
particular language and machine will cope with automatically, and 
to allow the programmer to specify any cases where the default will 
not cope. Thus the efficiency and speed can be maintained in all but 
those cases where it is essential to take other action. Since FORTH 
was designed for micros, and arithmetic on micros was centred on 
16-bit integers, FORTH arithmetic normaly works on 16-bit inte¬ 
gers too (i.e. integers must lie between —32768 and +32767 inclu¬ 
sive), and all the arithmetic operators so far met arc designed for 
operations on this range of values. We will meet the operators for 
larger numbers later, in Chapter 6. 

The arithmetic operators available are all restricted to integers, 
and all give integer results. Thus 

154/ 

gives the answer 3, not 3.75. (In effect, it is the DIV function of Pas¬ 
cal. It is referred to as, or pronounced, ‘divide’.) If any intermediate 
results go outside the legal range of values, nonsense results. Thus 

500 400 * 100 / 

might reasonably be expected to give a value of 2000, but it does not 
do so because the multiplication gives 200000 as the answer, and 
this is outside the valid range of normal (i.e. 16-bit) integers. Chap¬ 
ter 6 introduces the operators to handle this type of calculation as 
well. 

There are two other arithmetic operators that can be introduced 
here. The first is the MOD operator, which does the same job as the 
MOD in Pascal: it divides two integers and gives the remainder 
(rather than the result). Thus 

50 6 MOD 

gives a result of 2, and the answer to the division (8) is discarded. So 
if we have a fence 60 feet long, and fencing sections 7 feet wide, the 
number of sections required for the fence is given by 

60 7 /. 

and the length of the fence not covered is given by 
60 7 MOD . 

The type of result shown above (where the result of the division and 
the remainder are both required) is wanted frequently enough for 
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FORTH (and some other languages) to provide an operator that 
gives both parts of the answer. This is the /MOD operator (all one 
‘word’, pronounced ‘divide-mod’), which for the above problem can 
be used as 

60 7 /MOD . . 

The remainder is first put on the stack and the quotient put on top of 
that, and these will then be printed quotient first. 


Stack manipulation 

Let’s return to the problem posed earlier. Given the stack with two 
numbers A and B on it (B on the top), how is it possible to perform 
the calculation B/A, rather than the simple A/B calculation? Typing 
in 7 ’ will form A/B, but this does not help; to get the required value, 
we need to interchange the two values on the stack, and FORTH 
provides just such an operator: SWAP. This operator merely swaps 
the top two values of the stack, so that our A B entry becomes B A. 
We can now carry out the required operation by writing SWAP / . 
Try it for yourself, typing 

11 6 SWAP / . 

Note that SWAP does not destroy anything (for once), and has no 
effect on lower elements of the stack; only the top two elements arc 
interchanged. Just as a check, try typing 

1 2 3 4 5 SWAP. 

and you will see the values 

45 3 2 1 

printed out in that order, with only the 5 and 4 interchanged. 

There are a number of functions available to manipulate the 
stack, though we will not meet some of them until later. For the 
moment, we will keep to the operators that are useful for the simple 
arithmetic covered so far. The most useful manipulator function is 
DUP (pronounced ‘dupe’), which duplicates the top item of the 
stack. Suppose, for example, we wished to form the square of 10. We 
could write 

10 10 * . 

(try it for yourself), and this is easy enough to do for 10, but what if 
we want to calculate the square of 

23 + 16 - (4 * 9)? 


13 




23 16 + 4 9 * - 


True, we could write 
23 16 + 4 9 * - 


* 


but it is much easier (as well as being less prone to error and more 
efficient) to write 

23 16 + 49 *- DUP * 

The 23 16 + 4 9 * — gives the answer +3, DUP repeats this number 
on the stack, and * then multiplies the original number by its dupli¬ 
cate to give the answer. So DUP simply makes a copy of the number 
currently on top of the stack and inserts this copy above the original. 

DUP is also useful if you want to sec the partial result of a calcula¬ 
tion (like a subtotal). The normal print operator removes the top of 
stack value to print it, but if it is DUPlicated before the print oper¬ 
ator is used, the value is printed but still available for use in calcula¬ 
tions. Try typing in 

23 16 +DUP. 49* DUP. -DUP. DUP*. 

You should see the result of the addition (39), the first multiplication 
(36), the result of the subtraction (3), and the final result (9) all 
printed out. 

If it were possible to arrange calculations with a lot of foresight, it 
might be possible to get away with only the DUP operator, and not 
even need SWAP. Alas, requiring a programmer to have such fore¬ 
sight is not realistic, if only because a minor change in a calculation 
might require a complete rethink of the order of calculation. Besides, 
programming a computer should be enjoyable, not a Herculean 
task. So as a compromise between expecting the ridiculous from the 
programmer and the compiler doing more work than it wants to, the 
language itself defines other useful stack manipulation operators. 

Suppose, for example, we have performed interminable calcula¬ 
tions and have ended up with two values on the stack: A and B (B on 
top). If we need to calculate the value 

A / (B - A) 

we should recognise that this is not an easy problem. Assuming that 
we cannot avoid it, we need to find an operator (or series of oper¬ 
ators) to perform the calculation. If we had it to do from scratch, it 
would be easy. For example, calculating 

15 / (20 - 15) 
would simply be written as 
15 20 15 - / 
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But wc have only been given the 15 and 20, and this solution 
requires an extra copy of the first number, the one below the top of 
stack. FORTH provides an operator that meets this very require¬ 
ment: OVER. 

OVER is an operator that duplicates not the item on the top of the 
stack, but the one just below the top (sec Figure 2.4). Thus if 15 and 
20 were already on the stack, we could type 

OVER - / 

which copies the 15 from below the top of stack and inserts this copy 
as the new top, giving 15 20 15 for the stack, and the two arithmetic 

Top of stack 20 Before 'OVER' is executed 
15 

Top of stack 15 After 'OVER' is executed 
20 
15 

Fig. 2.4. The effect of the operator ‘OVER’ 


operators then complete the job. Try it for the example suggested 
above, typing 

15 20 OVER - / . 

and you will see ‘3’ printed as the answer. 

The next operator found useful by FORTH programmers is a 
general utility, ROT, short for ROTate (and for that reason pro¬ 
nounced ‘rote’). It is an operator that rotates the top three items on 
the stack, bringing the third item to the top and pushing the top two 
items down (see Figure 2.5). Thus if the stack contained 1 2 3 4 5 (5 
at the top), ROT would leave the stack as 1 2 4 5 3 (3 at the top). 
ROT can help you to recover from some awkward situations where 
stack order is creating a problem. 

The last of the major stack operators is DROP, which simply 
removes an item from the top of the stack (like but without print¬ 
ing it). This might seem an even more obscure requirement than 
ROTation, but there are good uses for this operator, as we shall see 
later. 

All the stack operators suffer from the same problem as the arith¬ 
metic operators: they do not necessarily report stack underflow 
when it occurs. The general rule for underflow detection is usually 
that no check is made unless an item is being removed from the 
stack. Thus ROT will work happily even with an empty stack, but 
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Top of stack 5 Before 'ROT' is executed 

4 

3 
2 
1 

Top of stack 3 After 'ROT' is executed 

5 

4 
2 
1 

Fig. 2.5. The effect of the operator ‘ROT’ 


DROP will not. The FORTH-79 Standard docs not provide any 
enforced checking for stack underflow, it being left to the 
implementors. As most computing courses will tell you, checking for 
errors is essential if you are to provide a robust, user-friendly prog¬ 
ram. That is just as true for compilers etc. as it is for payrolls, so it is 
disappointing that FORTH systems do not do so. 


Self-test exercises 

Check each of your answers to the exercises by running them on 
your own FORTH system. If your answers to Exercise 2.3 do not 
agree with those given, do not worry—as long as your FORTH sys¬ 
tem produces the correct results with them! 

2.1 Convert the following expression to Reverse Polish: 

(a) (5+ 6) *7 

(b) 5 + (6 * 7) 

(c) 18 - (3 * 4) + 2 

(d) 18- ((3*4) + 2) 

(e) 61 / (8 — 2) + (15*8) 

2.2 For each of the expressions in Exercise 2.1, show how the stack 
changes as the Reverse Polish expression is executed. 

2.3 Given the numbers 51, 4 and 18 already on the stack (with 18 
on top), use the arithmetic and stack manipulation operators from 
the chapter to print the following values in the specified order: 

(a) 4 18 51 

(b) 51 18 4 

(c) 51 4 18 

(d) 14 51 
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12 


(e) 51 

(f) 2 

(g) 18 

(h) 33 


72 

51 

3 

4 
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3 

Programs 


BASIC provides two methods of execution: ‘immediate’ mode, 
where a statment is executed as soon as it has been typed; and 
‘delayed’ or ‘program definition’ mode, where statements are stored 
for later execution. (Pascal has no equivalent of the ‘immediate’ 
mode.) Forth also operates in both modes, and so far you have been 
using the language in immediate mode. While interesting, this mode 
does not enable the programmer to develop a complete program, 
and we must now turn our attention to the mechanisms provided for 
defining programs. 


The word 

It is the word in FORTH that corresponds to the function or proce¬ 
dure in Pascal (similar to the GOSUB type of subroutine in 
BASIC). In its simplest form, it allows the programmer to group 
together a sequence of statements and give them a name. Then, 
when that sequence is to be executed, the name is quoted and the 
program jumps to the specified sequence of statements and executes 
them. Thus Figures 3.IP and 3.IB represent very elementary types 
of procedure. The procedure in Figure 3.IP is called by the state¬ 
ment 

print567; 

in the main program; or, for Figure 3.IB, 

1000 GOSUB 8000 

In either case, the call to the subroutine would print the number 5 
followed by the number 42. 

The equivalent subroutine definition in FORTH is given in 
Figure 3.IF. The start of a new definition is denoted by the colon, 
which is followed by the name to be given to the sequence of state¬ 
ments. The number of characters in a name may be up to 31, though 
some versions of FORTH restrict this to as little as three. Also, 
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PROCEDURE print567 ; 
BEGIN 

WRITE(5 ) ; 
WRITE(6*7) 

END; 

Fig. 3. IP. 


8000 REM SUBROUTINE PRINT567 
8010 REM 
8020 PRINT 5; 

8030 PRINT 6*7; 

8040 RETURN 

Fig. 3. IB. 

: PRINT567 5.67*.; 

Fig. 3.1. Pascal. BASIC and FORTH 
Fig. 3.1 F. subroutines to print two numbers 

unlike some languages, a name can consist of any sequence of char¬ 
acters; for example, $T% is a valid name! Immediately following the 
name come the statements that comprise the subroutine, and the 
definition is terminated by a semicolon. Thus PRINT567’ is 
equivalent to lines 1 and 2 of Figure 3. IP 
(‘PROCEDURE print567; BEGIN’), and the to line 5 (‘END;’). 
Now whenever we want to print 5 and 42, we need only write 

PRINT567 

to achieve this. Of course, this is not the most thrilling use of a sub¬ 
routine! 

Passing parameters to subroutines 

The above examples are of very limited use, as they arc only capable 
of doing the same thing over and over again. Normally, however, the 
programmer wants his subroutines to take different actions depend¬ 
ing on some ‘parameter’ that has been given to it. Pascal (and some 
BASICs) use ‘formal parameters’ in their definition of the sub¬ 
routine, which arc replaced by ‘actual parameters’ (i.e. the values 
actually to be used) when the subroutine is called. Thus to print the 
square of a number that has been given as a parameter, we could 
write the Pascal procedure given in Figure 3.2P and then use it by 
writing 

printsquare(7); 
to print the value 49, or 
printsquare( 12); 
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to print the value 144, where the formal parameter n in the Pascal 
definition is in effect replaced when the calculation is performed by 
the value of the actual parameter provided by the call (7 in the first 
case, but 12 in the second). 

The same sort of thing can be achieved even in minimal BASIC 
by the example given in Figure 3.2B, calling it by 

1000 N=7:GOSUB 8000 

The BASIC version of the subroutine is considerably different from 
the Pascal one, as a minimal BASIC docs not allow parameter sub¬ 
stitution in subroutines and it is necessary to assign the value of the 
parameter to a variable before executing the subroutine (as shown in 
the example). 

The FORTH version differs only slightly from the Pascal one. As 
we have seen, the definition of a subroutine (called a ‘word’ in 
FORTH) consists of a colon followed by the name of the subroutine, 
but no provision has been made for a list of the formal parameters 
(the ‘(n:INTEGER)’ in Figure 3.2P). This is because FORTH uses 
the stack not only in place of variables but also in place of a sub¬ 
routine’s formal parameters. Thus the equivalent subroutine in 
FORTH would assume that the parameter had been placed on top 
of the stack before it was called. So the FORTH subroutine to print 
the square of the number that is on the top of the stack is as shown in 
Figure 3.2F, and then to print the square of 7 we would have to place 
7 on the top of the stack before calling PRINTSQUARE, thus: 

7 PRINTSQUARE 

PROCEDURE printsquare(n:INTEGER); 

BEGIN 

WRITE(n*n) 

END; 

Fig. 3.2P. 


8000 REM PRINTSQUARE - NUMBER MUST BE IN 'N' 
8020 PRINT N*N; 

8030 RETURN 

Fig. 3.2B. Note the awkward method of simulating parameter 
passing 


: PRINTSQUARE DUP * . ; 


Fig. 3.2.F. 

Fig. 3.2. Pascal, BASIC and FORTH subroutines to print the 
square of a number given as a parameter 
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When printing results, we would normally want to print out a 
message with them so that the meaning of the results can be seen at 
a glance. The programs in Figures 3.2P and 3.2B would be better 
written as shown in Figures 3.3P and 3.3B, printing a suitable piece 
of text with the numbers to allow the (human) user to know what the 
numbers represent. The same effect can be achieved in FORTH by 
the operator .“ (dot-quote); this must be followed by a space (which 
is not printed), and then by any character string terminated by 
another quote mark. Dot-quote then prints that character string, 
excluding the initial space and the terminating quote mark. The 
FORTH version of Figure 3.3P would be as shown in Figure 3.3F1. 
Note that . already prints a space after a number, and therefore it is 
not necessary to put an extra space before the word ‘is’. 

One other useful print subroutine (word) in FORTH is CR, 
which prints a carriage return and line feed at your terminal. Thus if 
Figure 3.3P used WRITELN instead of WRITE, or line 8020 of 
Figure 3.3B omitted the final semicolon, the equivalent FORTH 
would be that shown in Figure 3.3F2. 

The three print words . and CR enable programmers to see 
what their results are (with explanations) and to lay them out suit¬ 
ably for easy reading. 


PROCEDURE printsquare(n:INTEGER)? 

BEGIN 

WRITE('The square of ' ,n,' is ',n*n) 

END; 

Fig. 3.3P. 


8000 REM PRINTSQUARE - THE NUMBER MUST BE IN 'N' 
8020 PRINT "The square of "?N;" is "?N*N; 

8030 RETURN 

Fig. 3.3B. 


: PRINTSQ1 ." The square of " DUP . ."is " DUP * . 
Fig. 3.3.FI. Print without terminating the line 


: PRINTSQ2 The square of " DUP . is " DUP * . CR 

Fig. 3.3F2. Print and go to next line 

Fig. 3.3. Printing the square of a number given as a single parameter with a suitable 
explanation of the output 
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Using multiple parameters 

Let’s return to our PRINT567 example given in Figure 3.1, but this 
time generalise it to print out results that are dependent on values 
given to the subroutine when it is called. A Pascal definition would 
be as shown in Figure 3.4P, which could then be called by the state¬ 
ment 

print2(5,6,7); 

to print the values we wanted from Figures 3.1, but which could also 
be called by 

print2(51,4,18); 

to print 51 and 72 (i.e. 4*18). The equivalent minimal BASIC sub¬ 
routine might be written as given in Figure 3.4B, which could be 
used by writing 

1000 A1 =5:A2=6:A3 = 7:GOSUB 8000 

in the first instance and by 

2000 A1 =51 :A2=4:A3= 18:GOSUB 8000 

in the second. How does FORTH cope with a word that has three 
parameters? 


PROCEDURE print2(a,b,c:INTEGER); 

BEGIN 

WRITELN('The first number is ' ,a,- 
' and the second is ',b*c) 

END; 

Fig. 3.4P. 


8000 REM NUMBERS MUST BE IN VARIABLES Al,A2,A3 
8010 PRINT "The first number is ";A1? 

8020 PRINT " and the second is ";A2*A3 
8030 RETURN 


Fig. 3.4B. 


: print2 ." The first number is " ROT 
." and the second is " * 


Fig. 3.4F. 


Fig. 3.4. Printing two numbers formed from three input parameters 
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We have already seen that a single parameter is placed on top of 
the stack. We now have the complication of three parameters, and 
obviously only one of them can go on top of the stack. FORTH 
words are written to expect the first parameter to be placed on the 
stack first (not an outrageous expectation!), the second parameter to 
be put on above the first one, and so on. Thus if we call a word with 
the three actual parameters 5, 6 and 7, the stack would be like that 
shown in Figure 3.5 when that word starts executing, and the call 
would look like 

5 6 7 print2 

The definition of the word would then have to access the parameters 
as best it could. 

Top of Stack 7 Fig. 3.5. The stack on entry to the FORTH word ‘p r im2\ 

6 given 5 as the first parameter. 6 as the second and 7 as the 

5 third 


Let’s look at the definition of‘print2’ in FORTH as an example. 
The start of the definition is easy: 

: print2 The first number is ” 

but the next thing that needs to be done is to print the first argu¬ 
ment. This appears not on top of the stack, but as the third item 
down. As the only print operator we have met is the dot, and this 
only operates on the top item of the stack, we need to move the third 
item to the top. If you remember, the ROT operator rotates the top 
three stack items, bringing the third item to the top, whereupon it 
can be printed. This expands the definition to 

: print2 .“ The first number is ” ROT . 

We now need to print the remaining explanation, multiply the two 
numbers, and print the result, giving the full definition shown in 
Figure 3.4F. To call this word with parameters 5, 6, and 7 we would 
write 

5 6 7 print2 

and it would print 5 and 42; to call it with 51,4 and 18 we would 
write 

514 18 print2 

and it would print 51 and 72. The stack changes that occur as this 
call to print2 executes are shown in Figure 3.6. 


FFM-C 
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Top of stack 

18 

A 

On entry to 'print2' 


51 


Top of stack 

51 

After the ROT in 'print2' has been performed 


18 

4 


Top of stack 

18 

4 

After the first print (.) in 'print2' has been performed 

Top of stack 

72 

After the multiplication (*) in 'print2' has been performed 


Fig. 3.6. Stack changes as k print2’ executes 


Note one very important point. When the word ‘print2’ has com¬ 
pleted its work, the parameters have been removed from the stack. 
This is often referred to as cleaning up the stack, and it is important 
that any word that is defined docs leave the stack clear of all the 
parameters. Normally this is done by the compiler (as in Pascal), 
but FORTH leaves it to the programmer. Failure to clean up the 
stack is one common reason for FORTH programs not working. 

For the experienced Pascal programmer: we have not dealt with 
the ‘call by name’ or VAR type of parameter. We will deal with this 
topic in Chapter 7. 


Obtaining results from subroutines 

There are essentially two methods of obtaining results from a sub¬ 
routine. For the Pascal programmer, these correspond to the proce¬ 
dure (where results are passed back by assigning a value to one of the 
parameters, usually used when a subroutine produces more than 
one result) and the function (where only one result is normally pro¬ 
duced and that result is, in effect, left in a standard location so that it 
can be used in a calculation or assignment). An example of a proce¬ 
dure is the Pascal WRITE, and of a function is SQRT; BASIC has 
the same sort of predefined function as Pascal, but it often docs not 
allow users to define new functions, and has nothing like a general 
procedure (though the PRINT type of instruction is a procedure in 
disguise). FORTH normally uses functions alone, though it does 
generalise them to allow them to produce more than one result from 
their calculations. We will start by looking at the simplest of func¬ 
tions that returns a single result from its calculations. 

Let’s return to the example of PRINT2 and the FORTH version 
given in Figure 3.4F. Suppose that, in addition to doing the printing 
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shown, it is required to add together the first argument and the pro¬ 
duct of the second and third arguments. This could be done in the 
Pascal version (Figure 3.4P) by rewriting it as shown in Figure 3.7P, 
and this would be called differently now, for example by 

x := 5 + print2(51, 4, 18); 

which would return the value 123 from print2 (i.e. 51 + 4 * 18), add 
it to 5, and store the result (128) in ‘x\ 

The same approach can be adopted in BASIC, though the prog¬ 
rammer needs to adopt a self-discipline that is usually lacking! The 
approach is to write the required code as if it were a perfectly ordin¬ 
ary subroutine to be executed using a GOSUB, but to keep a special 
variable name reserved for the result of the subroutine (as shown in 
Figure 3.7B). The important point is that all subroutines of this type 
should use the same variable name for the result: AC say. While the 
call is not quite the same as in Pascal, it can be similar, as can be 
seen from the following example 

1000 Al=51:A2=4:A3=18:GOSUB 8000 
1010 X=5TAC 


FUNCTION print2(a,b,c:INTEGER):INTEGER? 

VAR temp:INTEGER; 

BEGIN 

temp := b * c; 

WRITELN('The first number is ',a, 

1 and the second is ' r temp); 
print2 := temp + a 

END; 

Fig. 3.7P. 


8000 REM PARAMETERS IN Al,A2,A3, RESULT IN AC 
8010 AC=A2*A3 

8020 PRINT "The first number is ";Al? 

8030 PRINT " and the second is ";AC 
8040 AC=AC+A1 : RETURN 

Fig. 3.7B. Note that, as well as simulating the parameter passing, it 
is necessary to simulate the passing back of results to the calling 
statement 

: print2b * OVER The first number is " 

and the second is " DUP . + ; 

Fig. 3.7F. Note that the result is simply left on the stack, which has 
had the parameters removed from it before the word *print2b’ is left 


Fig. 3.7. Printing numbers given as parameters, and producing the 
addition as the result of the function 
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The FORTH equivalent of all this is to carry out the operations as 
before, including cleaning up the stack but leaving the result of the 
calculation on the stack for the calling word to make use of as it 
wishes. The equivalent code might then be as shown in Figure 3.7F, 
and the effect on the stack for the call 

51 4 18 print2b 

is shown in Figure 3.8. The equivalent of 
x := 5 + print2(51, 4, 18); 

(without the assignment to ‘x’) would then be carried out by 
5 51 4 18 print2b + 

with print2b printing 51 and 72, removing the 51,4 and 18 from the 
stack, and inserting 123 on it as print2b’s result; then the 4- operator 
takes the 5 and 123 from the stack, adds them together, and leaves 
the result (128) on the stack. 


Top of stack 

18 


4 


51 

Top of stack 

72 


51 

Top of stack 

51 


72 


51 

Top of stack 

72 


51 

Top of stack 

72 


72 


51 

Top of stack 

72 


51 

Top of stack 

123 


On entry 

After multiplication 
After OVER 

After first'.' 

After DUP 

After second'.' 

On exit, with the only remaining item in the stack being 
the result of the function 


Fig. 3.8. The stack and the changes it undergoes during the call of ‘print2b' with 
arguments 51,4, 18 
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Obtaining multiple results from subroutines 

If the stack is used to hold the result of a function call, it will come as 
no great surprise to be told that it is possible to provide many results 
(like a procedure) by leaving all of them on the stack. Indeed, in 
Chapter 2 we met one arithmetic operator (/MOD) that does pre¬ 
cisely this. 

Let’s now look at a fairly simple example. A check for ‘divisibility’ is 
to divide one number into the other and look at the remainder. If it is 
zero, the second number exactly divides the first, otherwise it doesn’t. 

Problem: Given two integers, a and b, write a word that determines 
whether a is divisible by b and whether b is divisible by a. The two 
results are to be kept separate, with a zero representing divisibility 
and any non-zero value representing non-divisibility. For example, 
f(5,6) would give 5 (for the remainder of 5 divided by 6) and 1 (for 
the remainder of 6 divided by 5); f(3,6) 3 and 0; f( 15,5) 0 and 5; 
f(6,6) 0 and 0. Ignore the possibility that the integers might be zero. 
On entry to the word, then, we need to use MOD to get the remain¬ 
der of the division; but we must avoid losing the two integers given 
as parameters, so we need to duplicate them. DUP will only dupli¬ 
cate the top item on the stack, but OVER will duplicate the second 
item, and if OVER is performed twice the top two items arc dupli¬ 
cated. Thus if the stack looks like 

a b 

on entry, the statements 
OVER OVER 
make the stack into 
a b a b 

Using MOD now finds the remainder of a divided by b, giving a 
stack 

a b rem(a/b) 

Now we need to get at a and b, and at the same time reverse them so 
that we can divide b by a. There are several ways to do this, but the 
shortest is 

SWAP ROT 
which first produces 
a rem(a/b) b 

after the SWAP, and then produces 
rem(a/b) b a 
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after the ROT. Don’t worry if you couldn’t see this straight away 
(such things come more easily with experience), as any other sequ¬ 
ence (such as ROT ROT SWAP) is perfectly acceptable. If we now 
use MOD again, the stack becomes 

rem(a/b) rem(b/a) 

which is what we wanted; both results are present, and the stack is 
clear of the parameters. 

The complete definition now looks like that shown in Figure 3.9. 


: DIVISIBLE OVER OVER MOD SWAP ROT MOD ; 

Fig. 3.9. FORTH word that tests whether two integers are exactly 
divisible by one another 


Try typing this definition in, and calling it with the four examples 
given in the problem specification, which are repeated below: 

(a) 5 6 DIVISIBLE . . 

(b) 3 6 DIVISIBLE . . 

(c) 15 5 DIVISIBLE.. 

(d) 6 6 DIVISIBLE . . 

To put it mildly, it is not obvious from the statements provided just 
what this word is doing (though the name given to the word, ‘divisi¬ 
ble’, does at least give a hint). Comments are even more important 
in FORTH than in most languages, but good program design les¬ 
sens the need for them; we will return to this point in Chapter 4. 


The dictionary 

By now you should have a good idea of what to do, even if the ‘how’ 
is still a little obscure. No doubt you will be wondering what hap¬ 
pens to the definitions that you have typed in from time to time, and 
this section deals with that point, though only in outline. The full 
details are reserved until Chapter 9, at which point it is necessary to 
go into the gory detail to show you the real power of the language. 

The dictionary is used to store all the definitions of FORTH 
words, including all the predefined words such as MOD. In that 
respect, it is similar to the symbol table of a compiler, or the encoded 
program stored by a BASIC interpreter. Whenever a new word is 
defined, the instructions are compiled (not stored in source form, 
unlike BASIC), and the name of the word is stored in the dictionary 
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together with the address of the start of the compiled code. Then, 
whenever the word is used in a statement, the dictionary is searched 
(starting with the most recent entry and proceeding towards the old¬ 
est) for that word; when found, the start address of the code is noted, 
and the code is jumped to. 

There is one thing worthy of note, even at this stage: this diction¬ 
ary search takes place whenever a word is defined and/or executed, 
and raises the question of what happens if the programmer defines a 
name twice, perhaps without realising it. When FORTH meets the 
first definition, it is entered into the dictionary without any problem. 
When it meets the second definition, FORTH simply accepts that 
one in addition to the previous definition. But when that word is used, 
the dictionary is searched starting from the most recent entry, and 
no check is made for duplication of definitions. Thus the definition 
used is the second one. 

This means that the old versions of a word sit in the dictionary 
using RAM that might be better used for other things. During 
development of a word, it may well be that you have a number of 
versions of it defined, and it would be useful to be able to throw 
away the old definition(s) and re-use the space thus freed. It is possi¬ 
ble to do this, as FORTH provides a word called FORGET to do 
just this (but the Jupiter Ace, for instance, does things somewhat dif¬ 
ferently). Typing 

FORGET PRINTSQUARE 

will tell FORTH to remove its definition of the last PRINTS¬ 
QUARE that was defined. However, it actually has more far- 
reaching consequences than that. 

FORGET tells FORTH to remove from the dictionary the name 
that follows it and all subsequent dictionary entries. Thus if you 
have kept all the definitions met so far in RAM (i.e. you have not 
turned your machine off), FORGETting PRINTSQUARE will also 
lose you the subsequent definitions of PRINTSQ1 to DIVISIBLE. 
The only one that will remain is PRINT567, which was defined 
before PRINTSQUARE. This is only true if you managed to type in 
PRINTSQUARE’s definition correctly the first time. If you had to 
type it in twice, you would find that the first (working) definition 
had gone and you had reverted to the previous (incorrect) version. 

It is useful to write and check one FORTH word at a time, using 
FORGET before you put in a new version of an old word. Doing this 
will ensure that you do not have a lot of RAM tied up with old (and 
worthless) definitions. Some versions of FORTH help you to 
remember that you are redefining a word that already exists by 
issuing a warning message, but this is intended to be helpful, not 
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proscriptive. Note that the FORTH-79 Standard includes a state¬ 
ment that the Standard's words should not (ever!) be redefined. 


The Return Stack 

So far we have met the parameter stack, and have made no mention 
of how subroutines keep track of the address to which they should 
return after execution. Pascal typically keeps its return addresses on 
the same stack as its data, and this is safe enough because the Pascal 
compiler keeps control of its stack. BASIC keeps a stack for its 
return addresses, and FORTH follows this example. 

As FORTH leaves all control of the stack to the programmer, it 
uses a separate stack (called the Return Stack) for return addresses, 
and keeps the stack we have so far used for arithmetic (the Para¬ 
meter Stack). In practice, the Return Stack can be (and usually is) 
used for things other than just return addresses, but it has one 
important difference from the parameter stack: at the end of a sub¬ 
routine’s work, you must have removed anything that you have put 
on the Return Stack. FORTH expects the top of the Return Stack to 
contain the address to which the subroutine should return; if it 
doesn’t, chaos ensues. 


Self-test exercises 

Before tackling these exercises, become familiar with your FORTH 
system’s editor. An editor is usually unique to its FORTH imple¬ 
mentation, which is why editors arc not covered in this book, but 
you will find future work much easier if you are able to use the 
editor. 

Write FORTH words to carry out the following functions. 

3.1 Print a simple error message, such as ‘Error in subroutine’. 

3.2 Amend the word from Exercise 3.1 to include an error number 
given as a parameter. Thus 

15 EX3.2 

should print out ‘Error 15 in subroutine’ (if EX3.2 is the name of 
your FORTH word). 

3.3 Amend EX3.2 to include a subroutine reference number (given 
as a second parameter). Thus 

15 6 EX3.3 
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should print out ‘Error 15 in subroutine 6’. 

5.4 Given two parameters, x and y, return a single value consisting 
of the sum of the squares of x and y. Thus 

3 4 EX3.4 

should print out 25 (9 + 16). 

3.5 Given two pairs of parameters (xl,yl and x2,y2), form the sum 
of the squares of (xl — x2) and (yl — y2). Thus 

15 12 6 2 EX3.5 

should return the value 181 (9*9 + 10*10). 

3.6 Given an integer number of millimetres, convert it to feet and 
inches. You may assume that 25 mm = 1 inch, and 12 inches = 
1 foot. Thus 

450 EX3.6 . . 

should print ‘I’ (representing the number of feet) and then ‘6’ 
(inches). 

3.7 Given an integer number of metres, use EX3.6 to print out the 
number of metres and its equivalent in feet and inches, together with 
suitable messages explaining what the figures are. 


31 



4 

Selection 


BASIC provides two control structures for selecting which section of 
the program is to be obeyed when a particular point in the program 
is reached: the IF statement, usually available as an 
IF...THEN...ELSE structure; and the ‘computed GOTO’, written 
in the form shown in Figure 4.IB. The ‘ON’ statement is simply 
skipped if the index (in the example, (I MOD 4) + 1) is not in the 
expected range (in this case, with four labels present, 1 to 4). 

Pascal also provides two control structures for selecting paths 
through a program: the IF...THEN...ELSE; and the CASE state¬ 
ment, which is similar to the computed GOTO. The BASIC exam¬ 
ple given in Figure 4.IB would be written in Pascal as shown in 
Figure 4. IP. If there were more than one statement to be obeyed for 
a particular value of the expression, they would be surrounded by a 
BEGIN...END pair. Standard Pascal does not define what would 
happen if the case expression yielded a value that did not appear in 
the set of case labels, while some implementations of Pascal not only 


1400 ON (I MOD 4)+1 GOTO 1500,1600,1700,1800 
1500 PRINT "ZERO"; 

1510 GOTO 1900 
1600 PRINT "ONE"; 

1620 GOTO 1900 
1700 PRINT "TWO"; 

1710 GOTO 1900 
1800 PRINT "THREE"; 

1900 PRINT " is the value of the last 2 bits of ";I 
Figure 4.1B. The computed GOTO in BASIC 


CASE (i MOD 4) OF 
0; WRITE('ZERO'); 

Is WRITE!'ONE 1 ); 

2; WRITE!'TWO'); 

3: WRITE!'THREE') 

END; 

WRITELN! ' is the value of the last 2 bits of ',D; 
Fig. 4.1P. The Pascal CASE statement 
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define the action taken if that happens but also provide an OTHER¬ 
WISE clause; the latter is obeyed if the ease expression matches 
none of the case labels. 

In case you arc a BASIC programmer wondering if Pascal pro¬ 
vides the equivalent of the ‘computed GOSUB’, the answ er is that it 
does. It still uses the CASE statement, but replaces the statement for 
each case label with a procedure call. 

FORTH, as defined in the FORTH-79 Standard, only provides 
the IF...THEN...ELSE statement. However, some versions of 
FORTH (such as MMS-FORTH) go well beyond the Standard and 
provide a CASE statment as well, but it will not be dealt with 
here. Before we can look at the IF statement, we need to cover the 
very general definition of Booleans. 


Booleans 

The IF statement in Figures 4.2B and 4.2P is normally read as: ‘If A 
is less than zero then set A to minus A’. This is not entirely correct, 
though that is the sense of the statement. The interpretation that is 
technically correct is: ‘If the statement “A is less than zero” is true, 
then set A to minus A’. This might seem a trivial difference, but in 
fact it is an important one, particularly for FORTH, and the misin¬ 
terpretation regularly creates problems for learners when they first 
come across Boolean values. 

The expression ‘A < 10’ gives a Boolean value, i.e. a value that is 
cither ‘true’ or ‘false’. Different languages represent these Boolean 
values in different ways: for instance, Pascal use TRUE and FALSE 
respectively; BASIC often uses 1 or — 1 (or even any non-zero value) 
and 0; and FORTH uses 1 for ‘true’ (although any non-zero value 


1000 IF A<0 THEN A=-A 

Fig. 4.2B. BASIC code to find the absolute value of‘A’ 

IF a < 0 THEN a := -a; 

Fig. 4.2P. Pascal code to find the absolute value of‘a’ 

: absi DUP 0< IF NEGATE THEN ; 

Fig. 4.2F. A FORTH word to find the absolute value 
of a number on top ol the stack 
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will do), and zero for ‘false’. FORTH stays with its Reverse Polish 
notation for writing these Boolean expressions, so A < Iff would he 
written in FORTH as: 

A 10 < 

However, the value of ‘A’ would normally be on the staek, and so 
not normally written down. Thus to test whether 

5*4 < 30 

we would write 

5 4 * 30 < 

FORTH would multiply 5 by 4, getting 20, and the ‘<’ would check 
whether the 20 is less than the 30, removing both the 20 and the 30 
in carrying out the check; as the ‘less than’ condition is ‘true’, 
FORTH leaves a 1 on the stack. 

The tests that can be performed arc the usual equality ( = ), less 
than (<) and greater than (>), together with tests that reflect the 
closeness of FORTH to assembler languages: tests for zero (0=), 
negative value (0<), and positive non-zero value (0>). Note that 
c < = ’ and ‘> = ’ are not part of the standard set of tests defined in the 
FORTH-79 Standard, though we shall see later how to implement 
them for ourselves. In addition, since FORTH uses any non-zero 
value as ‘true’, the subtract operator ( —) can be used to test for in¬ 
equality; for example, the Pascal test 

5 <> 10 

can be written in FORTH as 
5 10 — 

The subtraction must always yield a non-zero result (which repre¬ 
sents ‘true’) when they are unequal! Note that some implementa¬ 
tions of FORTH also provide the Pascal form of the ‘not equals’, i.e. 
the <>, though again it is not part of the FORTH-79 Standard. So 
the above example could usually be written as 

5 10 <> 

Some examples of the use of these Boolean tests are shown later in 
the chapter, after we have covered the IF statement. 

Boolean operators 

The standard Boolean operators in Pascal are AND, OR, NOT, = 
and <>, which also exist in most BASICs. 
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FORTH-79 provides almost the same Boolean operators as Pas¬ 
cal: AND, OR, NOT (though a number of FORTH implementa¬ 
tions use 0 = instead of NOT), and =, with the ‘O’ being written as 
a combination of‘ = ’ and NOT if the version of FORTH being used 
does not provide the ‘O’ operator. Reverse Polish is maintained, 
and so the expression 

(5 < 6) AND (7 < 8) 

would be written in FORTH as 

5 6 < 7 8 < AND 

while the more complex expression 

NOT ((5 < 6) OR (8 < 7)) 

would be written in FORTH as 

5 6 < 8 7 < OR NOT 

or, if your version of FORTH does not have the NOT operator: 

5 6 < 8 7 < OR 0= 

Now that we have met the Boolean operators, we can define the 
‘less than or equal to’ type of operator for ourselves. This particular 
one can be defined by the sequence 

: <= OVER OVER < ROT ROT = OR ; 

Check to make sure that you understand how this works, and then 
try to find a very much simpler version for yourself. 

The AND and OR operators do more than simply provide these 
Boolean operations. The AND performs a bit-by-bit AND opera¬ 
tion, so that 

13 10 AND . 

will print ‘8’ (13 = 1101 in binary; 10 = 1010; so the AND operation 
gives a binary value of 1000). In a similar fashion, the operation 

13 10 OR. 

will print the value 15. We could therefore find out whether the two 
numbers on the stack were zero by ORing them and testing if the 
result was zero; thus instead of writing 

0= SWAP 0= OR 


we could write 

OR 0= 
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The IF statement 


Very few BASICs now provide the most elementary form of the IF 
statement, nearly all of them providing the ELSE clause as stan¬ 
dard. A trivial example of the use of the IF without the ELSE is 
given in Figures 4.2P and 4.2B (finding the ‘absolute value’ of a vari¬ 
able). You will notice that the Pascal and BASIC versions look very 
similar. 

The general format of the IF statement in FORTH is: 

1. The word IF, which checks to sec whether the entry on top of the 
stack is the value ‘true’, i.e. is non-zero. 

2. Any number of statements that are to be executed if the value 
found by ‘IF’ was ‘true’. 

3. Optionally, the word ELSE, followed by any number of state¬ 
ments that are to be executed if the value found by ‘IF’ was not 
‘true’. 

4. The word THEN, which is used to mark the end of the IF state¬ 
ment. Regardless of which set of statements the IF executed, any 
statements following the THEN are executed as well. 

Thus the code given in Figures 4.2P and 4.2B would be written in 
FORTH (as a word, and assuming the value of‘a’ was on the top of 
the stack) as in Figure 4.2F. Assuming the number —6 is on the 
stack, this example is carrying out the following operations: 

(a) DUP Copy the number, as it will be destroyed by the check to 
see if it is negative and it will be wanted in step (c). This gives 
the stack as shown in Figure 4.3a. 

(b) 0< Check to see if the number on the top of the stack is nega¬ 
tive (removing it in the process). If it is, put a 1 on the stack, 
otherwise put a 0 there, giving the stack shown in Figure 4.3b. 

(c) IF Check to see if the stack has a 1 on top, removing the top 
value in the process. If so (as in this case), call NEGATE; other¬ 
wise the program would have skipped to the THEN and con¬ 
tinued processing from that point. The stack is left as shown in 
Figure 4.3c. 


Top of stack 

CD CD 

1 1 

(a) 

Top of stack 

1 

-6 

(b) 

Top of stack 

6 

(c) 
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Fig. 4.3. Stack (a) after 1)UP. (b) alter 0<. (c) after 
THEN of Fig. 4.2F 



The examples given in Figures 4.4B, 4.4P, and 4.4F show the use 
of the ELSE clause. Note that the first ‘THEN’ terminates the inner 
IF statement and the second ‘THEN’ terminates the outer IF. Both 
are absolutely essential, though the layout and indentation arc a 
matter of personal taste, and arc not usually seen with space used as 
lavishly as this (it costs too much disk space). 


1000 IF A<0 THEN ACC=-1 : GOTO 1030 
1010 IF A>0 THEN ACC=1 : GOTO 1030 
1020 ACC=0 
1030 RETURN 

Fig. 4.4B. BASIC function (simulated) to find the 
'sign’ of a number 


FUNCTION isign(a:INTEGER):INTEGER; 

BEGIN 

IF a < 0 THEN isign := -1 ELSE 

IF a > 0 THEN isign := 1 ELSE 
isign := 0 

END; 

Fig. 4.4P. Pascal function to find the ‘sign’ of a number 


: isign 

DUP 0< IF -1 

ELSE DUP 0> IF 1 ( If 

ELSE 0 
THEN 

THEN SWAP DROP 


( If negative, result is -1 ) 
greater than 0, result is 1 ) 
( Otherwise the result is 0 ) 

( Get rid of argument ) 


Fig. 4.4F. FORTH word to find the ‘sign’ of a number 


The important points to note, other than the FORTH way of writ¬ 
ing down the IF statement, are that the Boolean test must be per¬ 
formed before the word ‘IF’ is introduced; the IF word removes the 
Boolean value that results from that test; and each and every IF 
word must be terminated by a THEN. One other point that has not 
been directly illustrated is that the IF statement is only valid inside a 
word definition—unlike the arithmetic operators, etc. the IF (and 
other constructs like the loops) does not work in immediate execu¬ 
tion mode. 

Examples of the use of some of these tests are given in Figure 4.5. 
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9000 REM ARGUMENT IN Al, RESULT IN AC 
9010 IF Al<0 THEN AC = 0 : GOTO 9050 
9020 IF Al<10 THEN AC=1 : GOTO 9050 
9030 IF Al<100 THEN AC=2 : GOTO 9050 
9040 AC= 3 
9050 RETURN 

Fig. 4.5B. BASIC function (simulated) to determine 
which range of values an argument is in 


FUNCTION range(x:INTEGER):INTEGER; 

BEGIN 

IF x < 0 THEN range := 0 ELSE 

IF x < 10 THEN range := 1 ELSE 

IF x < 100 THEN range := 2 ELSE 
range := 3 

END; 

Fig. 4.5P. Pascal function to determine which range of values 
an argument is in 


range 


( 


( check if negative ) 
if so, result is zero ) 


( check if less than 10 
( if so, result is 1 
( check if less than 100 
( if so, result is 2 
( else result is 3 


DUP 0< 

IF 0 

ELSE DUP 10 < 

IF 1 

ELSE DUP 100 < 

IF 2 
ELSE 3 
THEN 

THEN 

THEN ( at this point, the stack contains both the 
result and, below it, the argument, so: ) 
SWAP DROP ( switch them and drop the argument ) 

; ( leaving just the result ) 

Fig. 4.5F. FORTH word to determine which range of values an argument is in 


Self-test exercises 

Write FORTH words to carry out the following functions. 

4.1 Given an integer number of metres as a parameter, check that 
it is positive. If it is, use EX3.7 to print the equivalent number of feet 
and inches; if not, use EX3.3 to print an error message. 

4.2 Given three parameters xl, x2, x3, leave a 1 on the stack if 
x2 <= xl <= x3, and a 0 otherwise. 

4.3 Given an annual salary as parameter, calculate the amount of 
tax to be paid if 10% of any sum over $ 1500 is the tax due. If the sal¬ 
ary is less than $1500, no tax is payable. 
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4.4 Use Ex4.2 to determine whether a number is either between 0 
and 9 or between 100 and 999. 

4.5 Given an integer as parameter, return a 1 if it is even and a 0 if 
it is odd. 

4.6 Given two integers as parameters, return the larger of the two. 

4.7 Repeat Ex4.6, but returning the smaller of the two parameters. 

4.8 Given three integer parameters, return the middle of the three 
values. Thus 

5 6 7 Ex4.8 . 

should print ‘6’, and 

8 17 5 Ex4.8 . 

should print ‘8’. 


FFM-D 
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5 

Repetition 


BASIC provides a single construct for repetition (the FOR...NEXT 
loop), though some versions also include a WHILE statement. Pas¬ 
cal is richer in repetition constructs, with the FOR, WHILE and 
REPEAT statements, a richness that is often confusing to the learn¬ 
er of Pascal. The FOR loop is present in both languages, but unfor¬ 
tunately they are somewhat different in effect. For instance, in 
BASIC the FOR loop is usually obeyed at least once, even if the ini¬ 
tial value has passed the final value; the Pascal FOR loop is not 
obeyed at all in such circumstances; and BASIC’s FOR loop allows 
an increment of any value to be applied to the index variable, but 
Pascal restricts the increment to 1 or —1. 

FORTH is also rich in repetition constructs, having the equiva¬ 
lent of the three Pascal loops. If you arc a BASIC programmer, used 
to implementing loops with a GOTO, prepare yourself for a shock: 
there is no GOTO statement in FORTH! This is not a disaster, 
however, as we shall see. Anything you did in BASIC using GOTOs 
can be done in FORTH using the loop constructs, but until you get 
used to the idea you will probably have to think a little harder. 

One point should be made clear: the loops cannot be executed in 
‘immediate mode’, i.e. they are only valid within a colon definition. 


The simple DO loop 

The first of the loop constructs in FORTH is the DO loop, which in 
its simplest form is exactly like the FOR loop in BASIC (except that 
as FORTH normally only uses integer arithmetic its index variable 
can only have integer values). A simple example is given in Figure 
5.1. This merely prints a message 10 times, and it should be obvious 
that there are some startling differences between the BASIC 
and FORTH versions. The format of this type of loop construct 
in FORTH is as follows: 

1. An integer one higher than the required final value is put on the 
stack. The DO loop does not execute when the value of the index 
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1000 FOR 1=1 TO 10 

1010 PRINT "Basic is better than Forth" 
1020 NEXT I 
1030 PRINT 

Fig. 5. IB. Printing a message 10 times using BASIC 


PROCEDURE p; 

VAR i : INTEGER; 

BEGIN 

FOR i ;= 1 TO 10 DO 

WRITELN('Pascal is better than Forth') 

END; 

Fig. 5.1P.Printing 10 times using Pascal 


; p 11 1 DO ." Forth is best of all" CR LOOP ; 
Fig. 5. IF. Printing 10 times using FORTH 


variable is equal to the final value; since we want the print to be 
done for 10 but not for 11, it is 11 that is placed on the stack as the 
final value. 

2. The lowest value for which the loop is to be executed is placed on 
the stack: in our case, 1. 

3. The word DO is written next (its effect is discussed a little further 
on). 

4. Any sequence of statements may now be written. In our case, we 
want to print a message. 

5. Following the statements that form the body of the loop, we now 
need the equivalent of the ‘NEXT I’ of BASIC. This is the word 
LOOP, which adds 1 to the index variable and, if the terminal 
value (11) has not been reached, goes back to the beginning of the 
body of the loop. 

One thing that is apparently missing from the FORTH loop is any 
information regarding the name of the index variable. As you may 
remember, variables arc rarely used, the stack being used in their 
place. Such is the case with index variables as well; the stack is used 
as a replacement for them. However, the ‘user’ (or ‘parameter’) 
stack is used for so many things that it seems sensible to not compli¬ 
cate the poor programmer’s life by forcing him to keep track of any 
DO loop stack entries. The DO loop therefore makes use of a diffe¬ 
rent stack, though the FORTH-79 Standard docs not define which 
other stack is to be used. Since there is already a second stack in the 
FORTH system (the Return Stack, mentioned at the end of Chapter 
3), implementors of FORTH use this stack to hold the parameters of 
the DO loop. 
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The word DO takes the upper and lower limits (11 and 1) that 
were placed on the parameter stack and transfer them to the Return 
Stack, keeping them in the same order. Thus after the DO has been 
obeyed, the 11 and 1 are no longer on the parameter stack, and the 
11 is now below the 1 on the Return Stack (see Figure 5.2). The 
value on top of the Return Stack is now used as the value of the 
index variable, and whenever LOOP is reached it increments the 

Top of stack 1 
11 

yy (contents unspecified) 

The Parameter Stack 

Top of stack xx (contents unspecified) 

The Return Stack 

Fig. 5.2a. T he parameter and Return Stacks 
before the DC) word is executed 

Top of stack yy (contents unspecified) 

The Parameter Stack 

Top of stack 1 
11 

xx (contents unspecified) 

The Return Stack 

Fig. 5.2b. 1 he Parameter and Return 

Stacks after the word DC) has been 
executed, having transferred the initial and 
limit values for the DC) loop over to the 
Return Stack 

value on the top of the Return Stack and checks this new value 
against the limit below it. If the value of the index is less than the 
limit, the loop is repeated; if not, the two values are removed from 
the Return Stack before any words following ‘LOOP’ are executed. 

If you have tried the example in Figure 5. IF, you will know that 
this mechanism works. But what happens if you try the equally sim¬ 
ple problem of printing out the first 10 positive integers? As can be 
seen from Figures 5.3B and 5.3P, we need to be able to access the 
value of the index variable; but it is on the Return Stack, and we 
have not met any words that deal with that stack. There are six 
words that reference the Return Stack, and they arc listed in Table 
5.1. The important one for the latest problem is T, which obtains 
(but does not destroy) the value of the index variable of the current 
DO loop and places it on the top of the parameter stack. This leads 
us to the program given in Figure 5.3F to print the first 10 positive 
non-zero integers. 
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1000 FOR K=1 TO 10 
1010 PRINT K; 

1020 NEXT K 
1030 PRINT 

Fig. 5.3B. 


PROCEDURE p; 

VAR i : INTEGER; 
BEGIN 

FOR i := 1 TO 10 DO 
WRITE(i); 

WRITELN 

END; 

Fig. 5.3P. 


: p 11 1 DO I . LOOP CR ; 


Fig. 5.3F. 

If you play with the Return Stack operators (and there is no better 
way to learn than to try them out), there is only one golden rule to 
follow: within a word, always return the Return Stack to its original 
state. For example, if you put anything on it, take it back off before 
the end of the definition is reached. Thus 

: xl >R 5 6 * >R 7 . R> R> ; 


Table 5.1. FORTH words that operate on the Return Stack (see text for reservations 
about the last three) 


Operator 

Effect 

>R 

Removes a value from the Parameter Stack and pushes it onto the 
Return Stack (the arrowhead is pointing towards the ‘R’). 

R> 

Removes a value from the Return Stack and pushes it onto the 
Parameter Stack (this time the arrowhead is pointing away from the 
‘RM 

R@ 

Copies (without destroying) thevalueon topofthe Return Stack onto the 
top of the Parameter Stack. 

I 

Copies (without destroying) the value of the index variable of the 
current DO loop onto the Parameter Stack. Normally this is held on the 
top of the Return Stack, so it usually has the same effect as R@. The 
FORTH-79 Standard distinguishes between I and R@, however; 
check your system to be sure of their interpretation. 

J 

Copies (without destroying) the value of the index variable of the next 
outer DO loop in which the current DO loop is nested onto the 
Parameter Stack. Normally this value is held as the third entry on the 
Return Stack. 

I’ 

Normally copies (without destroying) the second item on the Return 
Stack which, within a DO loop, is normally the value of the limit. 
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at the end of the definition leaves the Return Stack in its original 
state (two items added, and then removed), but 
: x2 >R 5 6 * >R 7 . R> ; 

does not (two added, but only one removed). For any mad profes¬ 
sors amongst the readers, there are uses for words that do not rein¬ 
state the Return Stack to its original pristine state, but they are not 
dealt with here. 

As an extended example, Figures 5.4B and 5.4P give sample prog¬ 
rams to calculate the factorial of a number, and Figure 5.4F contains 
a FORTH word that directly parallels the BASIC and Pascal prog¬ 
rams. If you are feeling sure of yourself, try the problem for yourself 
before looking at the answer given in Figure 5.4. F. If you do so and 
get a different looking FORTH word, don’t worry (as long as your 
version works) since there is no single ‘correct’ answer. 

8000 AC=1 

8010 IF N<0 THEN PRINT "Error in factorial - argument (" ;N;") is 

negative" : AC=-1 : GOTO 8060 

8020 IF N<2 GOTO 8060 

8030 FOR 1=2 TO N 

8040 AC=AC*I 

8050 NEXT I 

8060 RETURN 

Fig. 5.4B. BASIC subroutine to calculate the factorial of N 


FUNCTION fact(n:INTEGER):INTEGER; 

VAR i, res : INTEGER; 

BEGIN 

res := 1; 

IF n < 0 THEN 
BEGIN 

WRITELN('Error in factorial - argument (',n, 
') is negative'); 
fact := -1 

END 

ELSE 

BEGIN 

FOR i := 2 TO n DO 
res := res * i; 
fact := res 

END 

END; 

Fig. 5.4P. Pascal function to calculate the factorial of n 


: fact 1 SWAP ( Basic line 8000 ) 

DUP 0< IF ." Error in factorial - argument (" . 

." ) is negative" CR NEGATE ( Basic line 8010 ) 

ELSE DUP 2 < IF DROP ( Basic line 8020 ) 

ELSE 1 + 2 DO ( Basic line 8030 ) 

I * ( Basic line 8040 ) 

LOOP ( Basic line 8050 ) 

THEN THEN 


Fig. 5.4F. FORTH word to calculate the factorial of a number 
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The extended DO loop 

The simple DO loop described above is very restrictive, being cap¬ 
able only of a unit increment (and hence only increasing rather than 
decreasing). FORTH also provides a more general DO loop, which 
allows any increment, including negatives. The format is exactly the 
same as for the simple loop, except that the word LOOP is replaced 
by two things: the desired increment, and the word -I-LOOP. Thus 
to print multiples of 5 from 10 to 100 (inclusive), we could write 

: mlO 101 10 DO I. 5+LOOPCR; 

where the ‘5 + LOOP’ has replaced the word ‘LOOP’. The index 
variable will now be incremented by 5 rather than 1. Note that the 
value to be used as the increment must be placed on the parameter 
stack as part of the loop body. Thus 

: mlOa 5 101 10 DO I. +LOOP CR ; 

will not work after the first iteration, as the + LOOP destroys the 
value it uses as the increment. 

To use the DO loop for a negative increment (the equivalent of 
the Pascal FOR...DOWNTO loop), we should only need to provide 
a negative value with the +LOOP. This does indeed work, but pro¬ 
vides a minor problem: if the value of the index variable equals the 
terminal value, the loop is obeyed once more if the increment is 
negative, though not if the increment is positive. Thus the DO loop 
behaves differently for positive increments than for negative incre¬ 
ments, but only with regard to the final value (fig-FORTH users will 
be delighted to know that in their version of FORTH this difference 
in behaviour does not exist). So printing from 10 down to 1 could be 
done as 

: p— 110 DO I. -1TLOOPCR; 
though fig-FORTH users would have to write 
: p— 0 10 DO I. — 1 -I-LOOP CR ; 

Unlike the FOR loop in Pascal, it is possible to stop FORTH’s 
DO loop before it has completed the full number of iterations. The 
word LEAVE resets the limit value to be the same as the current 
loop index value, and so when the test to see if the loop should stop is 
next carried out, the loop stops. Note that it is not possible to jump 
immediately out of the DO loop; the loop is not left until the next 
test is performed at the end of the loop. Since the loop index and 
limit are removed from DO’s stack before exiting, there is no note of 
the terminating value left around for the programmer to interrogate. 
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If it is important that you know what that value was, use I and 
LEAVE together so that the termination value is left on the staek. 

Nested DO loops 

Nested loops arc perfectly acceptable, and are straightforward to use 
if the depth of nesting is kept to 1 (i.e. loop B inside loop A, but no 
loop C inside B). Normally in FORTH the inner DO loop puts its 
terminal value and current/initial value on the Return Stack above 
the values from the outer DO loop (sec Figure 5.5). As before, within 

Top of stack 0 
10 

xx (contents unspecified) 

The Parameter Stack 

Top of stack 1 
11 

The Return Stack 

Top of stack xx (contents unspecified) 

The Parameter Stack 


Fig. 5.5b. I he Parameter and 
Return Stacks after 11 1 DC) and 10 
0 DO have been executed 

the nested loop any reference to T will obtain the value of the inner 
loop’s control variable. What if we wish to obtain the value of the 
outer loop’s control variable? FORTH provides a standard oper¬ 
ator, J, which obtains the value of the index variable of the next 
outer DO loop. The usual situation is that that index variable has 
been pushed down to the third place on the Return Stack, so J is the 
equivalent of putting a copy of the third entry of the Return Stack 
onto the parameter stack. As an example, look at a sample program 
to print out the multiplication tables up to eight times; see Figures 
5.6B, 5.6P, 5.6F. 

There is no reason why nesting of DO loops cannot be deeper 
than in this example. However, the FORTH-79 Standard does not 
guarantee where the index variable and limit will be stored, so you 
will need to check your version of FORTH to ensure that it is stored 
on the Return Stack as described (I don’t know of any exceptions to 
this mechanism). If it is, you will then need to manipulate the 


Top of stack 0 
10 
1 

11 

The Return Stack 


Fig. 5.5a. The Parameter and 
Return Stacks after 11 1 DO has 
been executed and before 10 0 DO 
has been executed 
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1000 PRINT "Number",,"Mult ip 1ier" 
1010 FOR 11=1 TO 8 
1020 PRINT " x";11 ; 

1030 NEXT II 
1040 PRINT 
10 50 PRINT II, ; 

1060 FOR 12=1 TO 8 
1070 PRINT 11*12; 

1080 NEXT 12 
1090 PRINT 
1100 NEXT II 


Fig. 5.6B. 


PROCEDURE ptables; 

VAR i1,i2 : INTEGER; 

BEGIN 

WRITELN('Number' f 'Multiples':19); 
WRITE(' '); 

FOR il := 1 TO 8 DO WRITE(' x',il); 

FOR il := 1 TO 8 DO 

BEGIN 

WRITELN; 

WRITE(i 1: 4 , ' ' :4) ; 

FOR i2 := 1 TO 8 DO WRITE(il*i2) 

END 

END; 


Fig. 5.6P. 


: mtables 

." Number" 10 SPACES ." Multiples" CR ( Print heading 1 ) 
9 1 DO x" I . LOOP CR ( Print heading 2 ) 

9 1 DO 2 SPACES I . 4 SPACES ( Print table number ) 

9 1 DO I J * . ( Print one of the multiples ) 

LOOP CR ( and repeat for the rest of them ) 

LOOP ( Then repeat for the rest of the tables ) 


Fig. 5.6F. 


Return Stack yourself, using R> and >R, to get at the required 
index variable. As an example, the sequence 

R> R> J ROT ROT >R >R 

will obtain the value of the index variable of the outermost DO loop 
from a loop nested at the third level. 

The WHILE loop 

If you are unfamiliar with Pascal and do not have a version of 
BASIC with the WHILE statement, a brief word of explanation is 
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necessary. The WHILE is like the FOR, except for three things. 
First, there is no automatic incrementation, as provided by the 
STEP and/or NEXT code; if you want incrementation, you have to 
do it yourself. Second, instead of executing a fixed number of times, 
the WHILE statement continues executing until some specified con¬ 
dition is no longer ‘true’. Third, if the condition to be tested is 
initially ‘false’, the WHILE loop is not executed at all. As a com¬ 
parison, Figures 5.IB and 5.IP have been rewritten using the 
WHILE statement and are shown as Figures 5.7B and 5.7P (though 
this is a completely artificial example, as the more obvious FOR 
would normally be used in its place). 

The structure of FORTH’s WHILE is as follows: 

1. The word BEGIN (which simply acts as a marker to show where 
the loop starts). 

2. The Boolean test to determine whether the loop should continue, 
followed by the word WHILE. If the Boolean value is non-zero 
(i.e. ‘true’), the loop continues; if it is zero, the rest of the loop is 
skipped, and the loop exits. 

3. Any sequence of statements, forming the body of the loop. 

4. The word REPEAT, which simply marks the end of the loop and 
jumps back to its beginning (ready to do the next test). 


1000 1=1 

1010 WHILE I<11 

1020 PRINT "Basic is better than Forth" 
1030 1=1+1 

1040 WEND : REM End of the WHILE loop 
Fig. 5.7B. Use of the WHILE in BASIC 


PROCEDURE p; 

VAR i : INTEGER; 

BEGIN 

i := 1; 

WHILE i < 11 DO 
BEGIN 

WRITELN('Pascal is better than Forth'); 
i := i+1 

END 

END; 

Fig. 5.7P. Use of the WHILE in Pascal 


: p 1 DUP BEGIN 11 < WHILE ( Don't stop if TOS < 11 ) 

." Forth is best of all" CR ( Print message ) 

1 + DUP REPEAT ; ( Increment count and repeat ) 

Fig. 5.7F. The same WHILE loop in FORTH 
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The examples given as Figures 5.7B and 5.7P are then rewritten in 
FORTH using the WHILE loop, shown as Figure 5.7F. 

A more realistic example might be as follows: given an integer N 
and a maximum value MAXVAL, print out N, 2N, 4N, 8N, and so 
on as long as the multiples arc less than MAXVAL. Thus for N = 3 
and MAXVAL = 48, the word should print 3, 6, 12, and 24. Try it 
for yourself before looking the answer up at the back; and what hap¬ 
pens if MAXVAL is less than N to start with? 


The REPEAT loop 

The Pascal REPEAT loop is really the same as the Pascal WHILE 
loop, except that the test to sec if the loop should stop is not done 
until the end of the loop. A lot of Pascal learners find it very difficult 
to perceive the difference between the two types of loop, so Figures 
5.8a and 5.8b show the different program structures (using an 
English-like language to describe them) that result from using each 
type. If the difference is still not clear, it may be made more obvious 
from the description of the FORTH version of REPEAT in the next 
section, but the Pascal version of Figure 5.7 is given as Figure 5.9, 
this time using the REPEAT loop. 

The format of the FORTH equivalent of Pascal’s REPEAT...UN¬ 
TIL loop is as follows: 

1. The word BEGIN (as for the WHILE loop, it is used to mark the 
beginning of the loop). 

2. Any sequence of statements that are to be executed as part of the 
loop. 

3. A Boolean value, which if non-zero (i.e. ‘true’) stops the loop (the 
opposite of the WHILE loop). 

4. The word UNTIL, which actually tests the Boolean value and, if 
it is zero, goes back to the statement following the BEGIN. 

get a value; 

WHILE a test on the value is true DO 
BEGIN 

process the value; 
get a (new) value 

END 

Fig. 5.8a. A typical use of the WHILE loop 


REPEAT 

get a value; 
process the value 
UNTIL no more values are wanted 

Fig. 5.8b. A typical use of the REPEAT loop 
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PROCEDURE prpt; 

VAR i : INTEGER; 

BEGIN 

i := 0; 

REPEAT 

i := i + 1; 

WRITE(i) 

UNTIL i >= 10; 
wRITELN 

END; Fig. 5.9. The use of the Pascal REPEAT loop 


Try rewriting the previous exercise (the ‘multiples of N less than 
MAXVAL’) using this type ofloop, and find out what happens if 
this version is used with N already greater than MAXVAL. 


The WHILE loop generalised 

The WHILE loop described earlier is not quote a full description. 
That section suggests that the loop must have the WHILE test 
immediately after the BEGIN (except, of course, for the Boolean 
value). In fact, the loop is more general than that, with the Boolean 
value and the WHILE able to appear anywhere in the body of the 
loop. Thus FORTH’s REPEAT loop could be simulated by the fol¬ 
lowing sequence: 

1. The word BEGIN. 

2. Any sequence of statements that constitute the body'of the loop. 

3. A Boolean value that will be tested to sec if the loop should con¬ 
tinue, followed by the word NOT and the word WHILE. If the 
Boolean value is zero, NOT makes it non-zero (i.c. ‘true’) and the 
loop continues; otherwise there is an exit from the loop (exactly 
as for FORTH’s BEGIN...UNTIL loop). 

4. The word REPEAT, which merely goes back to the beginning of 
the loop again. 

As you can see, the only differences between the WHILE and 
REPEAT loops are the place where the test is done, and the value of 
the Boolean test that forces the loop to repeat. 

In practice, FORTH’s BEGIN...WHILE...REPEAT loop is used 
like the Pascal REPEAT, except that the ability to write code before the 
WHILE test enables the programmer to avoid repeating instruc¬ 
tions (see the FORTH WHILE loop structure of Figure 5.10, 
equivalent of Figure 5.8a). Figure 5.11 is another version of the 
program given in Figure 5.7F, with the DUP no longer appearing 
twice; it is now placed after the BEGIN and before the sequence 
Tl< WHILE’. 
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BEGIN 

get a value; 

perform a test on the value; 

WHILE that test is "true", keep processing; 
process the value 
REPEAT 

Fig. 5.10. Typical use of the WHILE loop in FORTH 


: pi 1 BEGIN DUP 11 < WHILE ( Don't stop if TOS < 11 ) 

." Forth is best of all" CR ( Print the message ) 
1 + REPEAT ( Increment and repeat ) 


Fig. 5.11. The efficient use of the WHILE in FORTH 


Self-test exercises 

Write FORTH words to do the following. 

5.1 Given parameters n (integer) and p (a positive, non-zero inte¬ 
ger), calculate n to the power p using a DO loop. 

5.2 Repeat Exercise 5.1, this time for any non-negative integer 
power using a BEGIN...WHILE...REPEAT loop. 

5.3 Given an integer parameter, return the number of digits in that 
integer (without taking into account a character for the sign). Thus 

-187 Ex5.3 . 9999 Ex5.3 . 

should print ‘3’ and ‘4’ respectively. 

5.4 Given two integer parameters n and s, shift n left s places (i.e. 
multiply by 2, s times) if s > 0; and shift n right ABS(s) places (i.e. 
divide by 2, ABS(s) times) if s is negative. Thus 

27 3 Ex5.4 . -171-8 Ex5.4 . 

should print ‘216’ and ‘0’ respectively. This word is the equivalent of 
the FORTH-79 Reference Word SHIFT. 


51 



6 

Numeric input and extended 
arithmetic 


We have at long last met sufficient FORTH to be able to tackle some 
useful programs. Before we look at the extensions to the FORTH-79 
Standard provided to extend the integer arithmetic we met in Chap¬ 
ter 2, we will look at the facilities available to provide numeric input. 
The FORTH-79 Standard provides only very basic words to handle 
input, and leaves it up to the implementor of the FORTH system to 
add to them. You should check your system’s documentation to find 
out what input/output words arc available, but the words developed 
in this chapter will, in the main, assume only the basic words 
defined by the Standard. 


The basic input words 

There are three basic words used for input, and all of them read 
characters (not numbers) from an input device. In doing so, the 
characters are converted to the ASCII numeric values (e.g. a space 
is converted to the decimal number 32—sec Appendix 1) and have 
to be treated as numeric values, as FORTH does not have the built- 
in CHAR type of Pascal or the character constant of BASIC. Addi¬ 
tional words then have to be used to convert a stream of characters 
into numbers, and we will look at those words on page 54. 


Single-character input 

The word KEY waits for the user to input a single character from 
the current input device and leaves its ASCII value on the stack. 
This word is useful for reading single-character answers to ques¬ 
tions, such as ‘Y’ or ‘N’ to represent ‘yes’ or ‘no’. As an example, sec 
Figure 6.1 for a simple word that waits for a ‘ Y’ or ‘N’ and returns 
‘true’ or ‘false’ respectively. 
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: reply 

BEGIN ." Yes or No? " KEY ( Get one character of reply ) 

32 OR ( Convert upper-case character to 

lower-case to avoid separate tests ) 

DUP 121 = ( Is it a "Y" or "y" ? ) 

IF 1 1 ( If so, return "true" and stop loop) 

ELSE DUP 110 = ( Is it an "N" or "n" ? ) 

IF 0 1 ( If so, return "false" and stop the loop) 
ELSE NOT ( If neither, simultaneously remove the 
character and force the loop to continue ) 

THEN 

THEN 

UNTIL ( Repeat unless the IFs have put a 1 top of stack ) 
SWAP DROP ( Get rid of the [valid] input character ) 

; ( and return the Boolean value ) 

Fig. 6.1. T he use of KEY to accept a single character from the keyboard to represent 
Boolean True (‘Y’ or ‘y’) or Boolean False (\V or k n’) 


Single-word input 

The word WORD (no, that is not a mistake!) is given a single argu¬ 
ment (the ASCII value of a single character) which is used to 
delimit an incoming character string. Thus if WORD is given an 
asterisk (decimal 42), a sequence of characters up to and including 
an asterisk is read. WORD counts the number of characters in the 
string (excluding the delimiter), and stores this count as the first 
character of the string. WORD then returns the address of the string 
(i.e. the address of the count). 

The delimiter ‘space’ (decimal 32) is treated as a special case. If a 
space is the delimiter, WORD ignores all leading spaces from the 
input, so that it can never return a null string (unless the input 
stream is exhausted). This, of course, is particularly useful for read¬ 
ing character strings representing numbers. 

An alternative to WORD is TEXT, which does a similar job but 
places the character string in a special area of core called the PAD 
(which we will meet again in Chapter 7) and then fills the rest of the 
PAD with spaces. TEXT still expects a character delimiter as an 
argument, but does not need to return the address of the string. It 
should be noted that TEXT is not a basic FORTH-79 Standard 
word, being defined in the Reference Word Set only. 

Both WORD and TEXT expect their character string to 
immediately follow the word typed in by the user that caused 
WORD or TEXT to be called. In other words, they can be used to 
read data that follows a function call, or in effect to ‘look ahead’ at 
what look like ‘parameters’ in other languages. Their use will 
become clear in Chapter 8, and for the moment we will ignore them. 
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Reading one line at a time 


The above two mechanisms ought to be suitable for our current 
needs (reading a single integer), but because of the fact that they 
expect data to be already in the input buffer when they are called 
(reading data that follows the call, as referred to above) they arc not 
suitable at all. FORTH provides a general-purpose word that is cap¬ 
able of reading in a complete line at a time, and moreover it does not 
expect the data to be already in the buffer; it acts very much like 
BASIC’s INPUT instruction, or READLN in Pascal, asking the 
user to enter the data and waiting until he does so. 

The word is EXPECT, and it is not quite as convenient to use as 
WORD and TEXT. EXPECT is given two arguments: the first is 
an address where the character string can be stored; the second is 
the maximum number of characters that will be read. Without going 
into details, the address can always be PAD (of which more in 
Chapter 7), which is always available as a scratch pad. The second 
argument is simply to limit the number of characters that the read 
will deal with; for example, setting it to 80 will ensure that no one 
will be able to type an endless line and overflow a buffer. 

Note that EXPECT does not provide a ‘result’, as the user has 
specified where the string will be stored, nor a count of the charac¬ 
ters read. However, it docs add at least one (and a maximum of two) 
ASCII NULL character to the end of the string as a terminator. 


Numeric input 

We can use EXPECT to read in a sequence of characters that will 
represent an integer. All we need now is a word that will take a sequ¬ 
ence of numeric characters and convert them to a numeric value, 
usually referred to as a ‘binary value’; there are two words available 
to do this. 

The first, and most basic, is the word CONVERT, sometimes 
implemented as >BINARY on FORTH systems that only treat the 
first three characters of a name as significant. (There is another 
word, CONTEXT, with which CONVERT would otherwise be 
confused.) This deals with larger numbers than we have dealt with 
so far, and so will be left until page 63. 

The word that docs what we want is called NUMBER. This 
expects to be given the address of the length of a string (where the 
string itself starts in the byte next to the byte that contains the 
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length), and converts the following string into a number. The string 
may contain a leading minus sign, but not a leading plus sign, and 
the number conversion stops when an invalid character is met 
(which should be the NULL character terminating the string). 
However, NUMBER is yet another word that is not part of the basic 
FORTH-79 Standard, appearing only in the Reference Word Set. 
For those without it in their Forth system, a definition is given as 
part of Figure 6.2. 

Unfortunately, EXPECT does not include the length of the string 
as the first byte of its result. Although NUMBER ignores any 
‘length’ byte that might be present, it docs expect it to be present. It 
is therefore necessary to give NUMBER not the address that was 
given to EXPECT, but the preceding address. NUMBER then 
ignores the contents of the given address (which it assumes to be the 
‘length’ byte), and looks at the following characters, returning a 
number. A suitable definition of a word to do this is given in Figure 
6.2. It is essential that the 1 be subtracted from PAD’s address 
before calling NUMBER, or the first byte will be skipped and the 
leading digit ignored. 

NUMBER should be used with caution, as a number of imple¬ 
mentations of FORTH (for example, MMS-FORTH and thejupiter 
Ace) have a diflerent version from that specified in the Reference 
Word Set of FORTH-79. To use NUMBER for the exercises in this 
book, you will either have to use the definition from Figure 6.2 or 
remember any difference between your version of NUMBER and 
the one assumed here when you compare answers; the former is 
probably easier. It may be that your system already provides a func¬ 
tion to read in a number, in which case it will be easier to use that 
word instead of#IN. The MMS-FORTH word to do this, for exam¬ 
ple, is #IN! 

The only problem with the #IN of Figure 6.2 is its brevity. It 
would be more ‘user-friendly’ if it output a suitable message to tell 


: NUMBER ( This definition is present for those whose Forth 
systems do not have the version defined in the 
Reference Word Set of the Forth-79 Standard. ) 

DUP 1+ C@ 45 = IF 1+ -1 ELSE 0 THEN SWAP 
0 0 ROT CONVERT DROP DROP 
SWAP IF NEGATE THEN 

: ttlN 

PAD 80 CR EXPECT 
PAD 1 - NUMBER 


( Read a line of characters ) 
( and convert to a number ) 


Fig. 6.2. Using EXPECT and NUMBER to read in an integer in FORTH 


FFM-E 
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the user that it was waiting for (numeric) input. However, it docs 
leave the programmer free to print his own message each time he 
wants to read data in. 


Unsigned numbers 

So far, we have been using 16-bit numbers. Indeed, to be precise we 
have been using 16-bit two’s complement numbers, which can range 
between +32 767 and —32 768. An alternative to using two’s com¬ 
plement numbers is to use unsigned numbers, where there is no such 
thing as a negative number and hence all the bits can be used to rep¬ 
resent the integer. By abandoning the possibility of representing 
negative values, our 16-bit numbers can represent values between 0 
and 65 535, and FORTH provides a few operators that deal with 
such numbers. 

There are only two important operators, as the normal arithmetic 
and input operators work as well with unsigned integers as they do 
with signed ones (there are exceptions to this, which we will meet in 
the next section). One is the output operator, U. , which prints out a 
number without treating it as a two’s complement value; try typing 

40000 . CR 40000 U. CR 

and you will see that the first prints the value —25 536 while the 
second prints the correct value. The other one is U< , which tests 
whether one unsigned number is less than another; try typing 

20000 40000 < . CR 20000 40000 U< . CR 
to see the difference between < and U< . 


Double-length numbers 

Unsigned numbers are not an awful lot of use, because generally 
when 16-bit signed numbers are not large enough, nor arc 16-bit 
unsigned numbers. As an example, consider writing a program to 
keep track of your bank account. Even if you decided that negative 
values were not necessary (and for most people it is the positive 
values that are not needed!), a maximum value of roughly $655 
(keeping accuracy to whole cents or pence) is unlikely to be enough 
for balances. So what does FORTH do to cater for larger values 
than the 16 bits so far mentioned? 

If you remember the discussion in Chapter 3, FORTH uses 16-bit 
numbers because they are perfectly satisfactory for most applica- 
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tions, but it is possible to use larger values (recognising that man¬ 
ipulating such numbers takes the computer longer) when necessary. 
In practice, FORTH offers 32-bit numbers as the next size up, and 
these are known as double-length numbers. FORTH provides all of 
the operators to manipulate these that it did for 16-bit (or single- 
length) numbers, generally inserting a ‘D’ in front of the operator 
name: thus D + adds two double-length numbers together, and D. 
prints out a double-length number. Rather than go through them all 
here, Table 6.1 lists them all, using Dl, D2, etc. as the notation for 
double-length numbers. 

The relationship of these (and other) double-length operators to 
the FORTH-79 Standard is not the same as that of the single-length 
operators, however. The latter arc part of the basic Standard, but 
most of the former arc in the Extensions to the Standard. Thus an 
implementation of FORTH may adhere to the Standard but not 
include any double-length operators. You need to check your system 
to see if they are there (MMS-FORTH offers them all). 

FORTH does more than provide these arithmetic and Boolean 
operators. It also provides special stack operators to handle double¬ 
length numbers, and a few arithmetic operators to allow some 
‘mixed-length’ arithmetic. Dealing with the stack operators first, it is 
important to note that a double-length integer is exactly what it 
says: it takes twice as much space as a single-length integer, and this 
is as true for the stack as for anything else. Hence a double-length 
integer is stored on the stack as 

2nd-16-bits 1st-16-bits 

(though it could cqually-well be represented in the reverse order), 
where the ‘2nd-16-bits’ are the least significant bits. If we wished to 


Table 6.1 Double-length arithmetic/logical operators (where S? is set to 
S = Standard, E = Extensions to Standard, NS = Non-Standard but might be 
provided) 


Operator 

Effect 


D+ 

D3 = Dl + D2 

S 

D- 

D3 = Dl - D2 

E 

D/ 

D3 = Dl / D2 

NS 

D* 

D3 = Dl * D2 

NS 

D. 

Prints Dl 

E 

D0= 

Leaves ‘true’ ifDl is zero 

E 

D= 

Leaves ‘true’ ifDl = D2 

E 

D< 

Leaves ‘true’ ifDl < D2 

S 

DNEGATE 

Negates Dl 

S 

DU< 

Leaves ‘true’ if the unsigned value of Dl is less than the 
unsigned value of D2 

E 
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duplicate the number, carefully keeping the two halves in the correct 
order, we could write 

OVER OVER 

FORTH provides the word 2DUP which in effect performs this 
sequence of operations, but which is faster and takes up less space 
than the above sequence. 

Generally speaking, the single-length stack operator names also 
exist for double-length numbers, but with a ‘2’ preceding the name 
(as in 2DUP). Table 6.2 provides a list of such operators, though it 
is worth pointing out that they are not just useful for working with 
double-length numbers. For example, DIVISIBLE (in Figure 3.9) 
duplicates the top two numbers on the stack as its first operation, 
using the OVER OVER construction; it could have replaced that 
with the operator 2DUP, which would have had the same effect. 


‘Mixed-length’ operators 

The mixed-length operators are in an even more precarious state 
than the double-length operators, as most of them arc not included 
at all in FORTH-79—not in the Extensions to it, and not even in the 
Reference Word Set. In spite of that, it is worth briefly mentioning 
them. First of all, let’s return to the example on page 12. 

500 400 * 100 / 

That produced an incorrect answer, because the multiplication pro¬ 
duced a number that was larger than could be represented in 16 bits 
(even as an unsigned number). Even though the final answer took 
up less than 16 bits, the sequence of operations ‘overflowed’ the 
single-length capacity at one of the points in the calculation. 


Table 6.2 The Stack operators for handling double-length numbers 


Operator 

Effect 

S? 

2SWAP 

Swaps the two double-length values on top of the stack. 

E 

2DUP 

Copies the double-length number on top of the stack. 

E 

2DROP 

Removes the top double-length number from the top of the 
stack. 

E 

20VER 

Copies the double-length number from below the top 
double-length number. 

E 

2 ROT 

Rotates the top three double-length numbers, bringing the third 
to the top. 

E 


58 



There are a couple of operators provided to handle this type of 
calculation. In the example given, we could have written 

500 400 100 */ 

and the ‘*/’ operator would have multiplied the 500 by the 400, 
keeping the answer as a double-length number, and then divided the 
result by the 100, producing a single-length number as a result (cor¬ 
rectly). In similar vein, there is a ‘*/MOD’ operator, which docs the 
same as above but produces both the remainder and the quotient as 
single-length integers as the result from the double-length multi¬ 
plication. Both these operators are defined in the FORTH-79 Stan¬ 
dard. 

There are then typically some arithmetic operators that are 
defined to handle ‘mixed-length’ arithmetic between one double¬ 
length number and one single-length number, but they arc not 
defined in FORTH-79 at all. Those provided by MMS-FORTH are 
listed in Table 6.3, but you will need to check your own FORTH 
system to see which operators it provides. 


Multiple-length integers and floating-point 

In practice, it is rare that double-length numbers are incapable of 
handling the largest number a program will need to deal with (on 
the TRS-80, for instance, it allows a range of values between plus 
and minus 2 147 483 647—or, in terms of money, over 21000 000 
pounds, dollars etc.—certainly sufficient for my bank balance!). 
However, there is no reason why integers of even greater size cannot 


Table 6.3. Non-standard ‘mixed-length’ arithmetic operators provided by MMS- 
FORTH 


Operator Effect 


M + 

M- 

M* 

M/ 

M/MOD 

MV 


Takes a double-length integer and adds a single-length integer to it, 
giving a double-length result. 

As for M + , but subtracting the single-length number. 

Multiplies two single-length integers, giving a double-length result. 
Divides a double-length integer by a single-length integer, giving a 
single-length result. 

As for M/, but giving both the remainder and the quotient as 
single-length numbers. 

Takes a double-length number 1)1 and multiplies it by a single-length 
number N2, giving a triple-length result! This result is then divided by 
N3, giving a double-length result (similar to */). 
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be handled if needed: the catch is that you will have to write the 
necessary operators yourself, and that is beyond the scope of this 
book. 

Similarly for floating-point operations; FORTH is designed to 
handle integers, but if you want to handle floating-point numbers it 
is possible to do so by writing suitable operators yourself (again, 
beyond the scope of this book). MMS-FORTH does provide such 
operators if you pay extra for them, and the Jupiter Ace provides 
them in its basic price. The MMS-FORTH version makes use of the 
BASIC subroutines (which are already in ROM), and hence takes 
up little extra space. However, it is worth rethinking a problem to 
avoid the use of floating-point numbers, and use ‘scaling’ instead. In 
other words, if your application is more interested in holding a num¬ 
ber of decimal places, rather than a number of significant digits 
(which is the real purpose of floating-point), multiply each number 
by the number of decimal places, and pretend they are integers. 

A simple example is the one of holding bank balances. Instead of 
trying to hold two decimal places of pounds, hold the amount as 
pence! Admittedly, we then seem to have a problem with printing, 
as we need a decimal point before the last two digits. But don’t 
worry; we will meet methods of achieving this in Chapter 8. As a 
practical example, consider the calculation of a percentage of a num¬ 
ber, with the value rounded instead of truncated (truncation is auto¬ 
matic in FORTH arithmetic): a suitable word is defined in Figure 
6.3, using mixed-length operators to take a single-length value and 
(integer) percentage and produce a (rounded, single-length integer) 
result. It can be used to find, for example, 73% of 86 by writing 

86 73 % . 

Performing this type of calculation does not need floating-point faci¬ 
lities, but if you want to do work that requires them, or cannot adapt 
to using scaling, you will just have to write or buy them. If the latter, 
make sure that the FORTH system you select docs provide the 
opportunity to buy them. 

Special arithmetic operators 

In addition to all the above operators, there are some special oper¬ 
ators that are provided for the more common operations, and others 

: % 

M* ( Multiply value by percentage, giving a double number ) 
50 M+ ( Add 50 to result for rounding, with a double result) 
100 M/ ( Then divide by 100, giving a single-length result ) 

Fig. 6.3. Calculating a percentage (rounded) 
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that arc the equivalent of built-in functions (such as ABS). The stan¬ 
dard functions are listed in Table 6.4, and the operators for common 
operations in Table 6.5. Note that the 2* and 2/ operators arc 
equivalent to shifting left and right, respectively, a single-length 
number by one place. 


Number bases 

Before we return to CONVERT, we need to say something about 
number bases. So far, we have happily assumed that FORTH works in 
decimal, and all our examples have made that assumption. As they 
have all worked, surely that must be the case? The answer is both yes 
and no! 

FORTH is written to allow both input and output using any num¬ 
ber base. (Arithmetic is always performed in binary; it is only the 
interface with the human operator that needs different presenta¬ 
tion.) It does so by doing all its conversions from and to the internal 
binary values with reference to a number base that is stored in the 
FORTH system, and then by providing words that alter that base. 
The value to which it is normally set is 10, so any numbers that arc 
input and printed are treated as decimal numbers. However, if it is 


Table 6.4. The (few) standard FORTH arithmetic functions 


Function 

Effect 


ABS 

DABS 

MIN 

DMIN 

MAX 

DMAX 

Returns the absolute value of the argument. 

ABS for a double-length integer. 

Returns the smaller of two integers. 

MIN for two double-length integers. 

Returns the larger of two integers. 

MAX for two double-length integers. 


Table 6.5 Special FORTH arithmetic operators (where S? is set to S = Standard, 
R = Reference Word Set of the Standard) 

Operator 

Effect 

6? 

1 + 

Adds 1 to the integer at TOS. 

S 

1- 

Subtracts 1 from the integer at TOS. 

S 

2+ 

Adds 2 to the integer at TOS. 

s 

2- 

Subtracts 2 from the integer at TOS. 

s 

2* 

Multiplies the integer at TOS by 2 (equivalent to shifting left 1 
place). 

R 

2/ 

Divides the integer at TOS by 2 (equivalent to shifting right 1 
place). 

R 
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changed to 8, all numbers arc thereafter treated as octal numbers 
until it is changed back to 10; if it is changed to 16, hexadecimal 
numbers are assumed. 

There are three words that alter the base in a predetermined way: 
DECIMAL, HEX and OCTAL (the latter two being defined only in 
the Reference Word Set). If your FORTH system includes HEX 
and OCTAL, try typing 

23 23 23 HEX . OCTAL . DECIMAL . 

The (decimal) number 23 is placed on the stack three times. The 
number base is then changed to hexadecimal, and the print operator 
therefore prints the TOS 23 as hexadecimal 17; the base is changed 
again, this time to octal, and so the current TOS (decimal 23 again) 
is printed as octal 27; finally the number base is changed back to 10 
and the TOS value (decimal 23) is printed in decimal. (If your 
FORTH system does not have HEX and OCTAL, do not worry: we 
will see how to define them for ourselves in a later chapter, and you 
can then return to these examples.) 

Now try typing 

23 HEX 23 OCTAL 23 DECIMAL . . . 

In this ease, the decimal number 23 is put on the stack; then the 
number base is changed to hexadecimal, and so the hex number 23 
(decimal value 35) is placed on the stack; the number base is 
changed again, this time to octal, and so the octal number 23 
(decimal value 19) is stacked; then the number base is changed yet 
again, back to decimal. The three print instructions then print out 
the stack values in decimal, giving 19, 35, and 23. 

This facility to change the base is effective for both input and out¬ 
put until there is a further change of base. Thus if we want to know 
the value of 73 (octal) times 35 (octal), but want the result in 
decimal, we could write 

OCTAL 73 35 * DECIMAL . 

and you will sec the decimal answer 1711 printed. Always remember 
to change back to decimal as soon as you have finished using the 
number base you have switched to. Failure to do so can make you 
think there is something wrong with your program when in fact it 
works perfectly. 

The above three operators use specific bases. It is just as easy to 
use any other number base, but we need a little more FORTH to do 
so, and that is covered in the next chapter. 
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Using CONVERT 


CONVERT (or >BINARY on some FORTH systems) is a word 
that converts a character string into a double-length number 
(NUMBER converts a string into a single-length number, remem¬ 
ber). It does even more than this, as it expects as its first argument a 
double-length number, to which it adds the converted number. Its 
second argument is the address preceding the first character of the 
string (the same as the only argument given to NUMBER). 

It returns two values rather than one. The one on top of the stack 
is the address of the character that terminated the conversion of the 
string to a number; the one below on the stack is the resulting dou¬ 
ble-length number. An example of a word using CONVERT is 
given in Figure 6.4, though if you have not got the D. word of the 
FORTH-79 Standard’s Extension you will find it difficult to prove 
that it works! 

: D#IN 

PAD 80 CR EXPECT ( Read a sequence of characters) 

0 0 PAD 1- ( Load double-length zero and the address 

preceding the character string, onto the stack ) 
CONVERT ( Call the conversion routine ) 

DROP ( Drop the unwanted address ) 

Fig. 6.4. Using CONVER T to read in a double-length (positive) number. Note that 
double-length zero can be represented as two single-length zeros in succession 


Self-test exercises 

Write FORTH words to perform the following operations. 

6.1 Using #IN, read in a scries of positive non-negative integers 
and print each one on a new line with the number of digits in it 
(using EX5.3). 

6.2 Without using HEX or OCTAL, read in five octal digits (one 
per line) and place the equivalent binary integer in the stack. Thus 
reading the numbers 0, 1, 0, 0, 0 should put 512 on the stack. 

6.3 Read in five numbers (one per line) and put them on the stack. 
Taking them in the reverse order of input, print the corresponding 
number of asterisks. Thus if the numbers 5, 4, 3, 2, 1 were read in, 
the first line would have one asterisk, the second line two asterisks, 
and so on. 
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6.4 Read in a sequence of pairs of integers, terminated by a pair of 
zero values. Print each pair on a new line, together with the result of 
subtracting the first from the second. The output should have suit¬ 
able messages printed to explain it. 
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7 

Data types 


So far, we have really only met the numeric data types, though in the 
previous chapter we did meet some elementary character manipula¬ 
tion. The latter was introduced only in passing, to help with some of 
the numeric requirements; now we arc going to look at the different 
types of data that FORTH supports, of which characters are but a 
small part. 

Unfortunately, the FORTH-79 Standard is somewhat limited in 
scope, and supports relatively few data types. However, some 
FORTH implementations provide data types that are more- 
advanced than those described by the Standard, MMS-FORTH 
being one such. All the facilities described in this chapter are pro¬ 
vided by MMS-FORTH as part of their FORTH system. However, 
MMS-FORTH strings are not implemented in the manner 
described on pages 73-78. 


Characters 

FORTH uses the ASCII character set (see Appendix 1) to represent 
characters, and does not provide the character literal of Pascal and 
BASIC. Thus to refer to the letter ‘A’, the programmer needs to 
refer to the ASCII representation 65; to refer to k a’, 97; and so on. 
This is not as pleasant as using a character literal, but as we shall see 
it is possible to define for ourselves a representation for such literals. 
An example of a FORTH definition that will place a character 
literal on the stack is given in Figure 7.1a, with an example of its use 
in Figure 7.1b. We will see more clearly how it works when we get to 
Chapter 9, but for the moment we can just use it (it already exists on 
the Jupiter Ace). 

An ASCII character takes up seven bits, whereas a normal 
numeric value takes up 16. Rather than putting one character in the 
same space as one number, FORTH assumes that each character 
takes up only one byte. To avoid the problem of having to have diffe¬ 
rent arithmetic operators for character comparison than for numeric 
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: ASCII ( This definition is provided for convenience - the 

code will not be explained until Chapter 9. ) 

32 WORD ( Get all characters up to a space ) 

DUP C@ 1 = ( Check that there is only one character ) 

IF 1+ C@ ( If so, get it ) 

STATE @ IF [COMPILE] LITERAL THEN 

ELSE CR ." Wrong number of characters given to ASCII" CR 
THEN 

IMMEDIATE 

Fig. 7.1a. A definition of the FORTH Reference Word 'ASCI F for use with the word 
‘REPLY’ given below 


: REPLY 

BEGIN ." Yes or No? " KEY ( Get a character ) 

32 OR ( Make letter into lower-case ) 

DUP ASCII y = ( Was it a "y" ? ) 

IF 1 1 ( If so, leave a 1 on the stack and a 1 to stop loop) 
ELSE DUP ASCII n = ( Was it an "n" ? ) 

IF 0 1 ( If so, leave a 0, and still a 1 to stop loop ) 
ELSE DROP 0 ( If neither, stack a 0 to continue loop ) 
THEN 

THEN 

UNTIL ( Repeat unless a 1 is TOS ) 

SWAP DROP ( Keep result, but get rid of the character ) 


Fig. 7.1b. The use of KEY to read a single character from the keyboard 


comparison, all characters placed on the stack are treated as num¬ 
bers, and hence have to be changed in format so that they take up 16 
bits, the first (most significant) bits being set to zero. Thus ASCII 
values on the stack are just like normal integers. 

As we shall see later in the chapter, it is possible to have variables 
and arrays of characters, and in such cases a character is expected to 
take up only eight bits. But once a character is on the stack, it takes 
the full 16 bits that a number takes. 

The most basic word for printing characters is EMIT, which will 
print the character that has the ASCII value of the integer on top of 
the stack. Thus 

42 EMIT 

is the equivalent of the BASIC statement 
PRINT CHR$(42); 
and the Pascal 
WRITE(CHR(42)); 

all of which will print an asterisk. Though this is a useful word for 
handling single characters, it is obviously very limited in scope, and 


66 



we certainly would not wish to have to print messages using EMIT 
all the time. We will see a more useful word when we meet strings at 
the end of this chapter. 


Variables 

Early in the book, the point was made that one major difference 
between FORTH and other languages was the lack of use of vari¬ 
ables, and if you wanted to become a FORTH programmer (as 
opposed to a convertor of programs to FORTH code) you should 
replace all variable names with positions on the stack. Pascal and 
BASIC compilers and interpreters in effect do just that, but in 
FORTH it is one more chore that is taken away from the language 
and put upon the shoulders of the programmer. While this could be 
strictly adhered to, it sometimes creates a lot of unnecessary work. 
In Pascal, for example, it is sometimes convenient to have a global 
variable to hold an error code, so that any subroutine can access it 
and alter it (the same problem does not arise in BASIC, as all its 
variables are global). 

So what can we do if we need a global variable in FORTH? We 
could allocate space for it at the bottom of the stack, where it would 
never be deleted. But there is already a mechanism for providing 
global names, the dictionary, which so far has acted as a note of the 
names of all FORTH words (i.e. subroutines). If we could enter the 
names of variables in the dictionary as well as the names of words, the 
requirement of a global variable would be met, and indeed this is the 
process used. 

What if we need a local variable (in essence, one that is only avail¬ 
able to the subroutine that defines it)? The answer is that you have 
to use the stack, as there is no facility for provision of variables other 
than global ones. The only alternative is to allow the variable to be 
global, and programmers sometimes do that; rather than con¬ 
tinually manipulating the stack, it is sometimes more efficient to use 
a (global) variable to hold a temporary value. 

Before we can use a variable, we need to declare it (like using the 
Pascal VAR statement, but unlike BASIC where it is only necessary 
to declare some arrays). FORTH provides two very similar state¬ 
ments to do this declaration: one for normal integers (two bytes), 
and one for double-length integers (four bytes—again, only defined 
in the FORTH-79 Extension). To declare a variable that is to hold a 
person’s age as a normal integer, we would write 

VARIABLE AGE 
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Note that FORTH docs not use Reverse Polish for declarations! 

Unfortunately, fig-FORTH (and the Jupiter Ace) differs from 
FORTH-79 with regard to the declaration of variables, in that it 
expects a declaration to include an initial value. This would be like 
writing 

VARx := 5 : INTEGER ; 

in Pascal, which seems a little odd (BASIC usually does initialise 
variables for you, setting them to zero, but this is not true of all 
BASICS). Thus in fig-FORTH we would have to write 

0 VARIABLE AGE 

to declare AGE; the zero can, of course, be replaced by any value we 
want. To help you remember this difference between the versions of 
FORTH, the figures and answers to self-test exercises put brackets 
around the initial values to remind you of it. If your version of 
FORTH requires this initial value, delete the brackets, otherwise 
you can leave them in. Other than this gentle reminder, the rest of 
the book assumes that your version of FORTH docs not include the 
initialisation feature. 

If we need a variable to hold a double-length integer to represent 
gross salary, we might write 

2VARIABLE GROSS-PAY 

where 2VARIABLE allocates a variable of length four bytes. But as 
with the Pascal VAR statement, this does not initialise the variable to 
zero (MMS-FORTH does do so, even though it uses the FORTH- 
79 style of declaration); it merely allocates space in which the vari¬ 
able’s value may be stored. MMS-FORTH also provides a CVARI- 
ABLE declaration, which declares a variable which can hold only 
one character: the CHAR type of Pascal. 

Assuming your version of FORTH does not have the initialisation 
facility, we now need to be able to assign a value to the variables we 
have declared. To set AGE to 25, for example, we would write 

AGE=25 in BASIC 

AGE: = 25 in Pascal 
25 AGE ! in FORTH 

The FORTH example is a little trickier than it looks at first sight. 
The ‘25’ goes on the stack, as normal; the ‘AGE’ then puts the 
address of the variable AGE on the stack; and the T (pronounced 
‘store’) stores the value below top of stack in the address that is on 
the top of the stack, removing the two entries (value and address) from 
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the stack in the usual way. In case you prefer the ‘: = ’ as an assign¬ 
ment operator, try typing 

• * 5 

and you can then write 
25 AGE : = 

to carry out the assignment. As long as such definitions are included 
with each program, swapping FORTH programs with other people, 
and indeed publication of your programs, will not create too many 
problems. 

Having assigned a value to a variable, we need to be able to 
retrieve it. This is done in an analogous way to the assignment, this 
time using the operator ‘@’ (pronounced ‘fetch’). So to retrieve the 
value of AGE and place that value on the stack, we would write 

AGE @ 

The ‘AGE’ puts the address of the variable AGE on the stack, as 
before, and the ‘@’ then obtains the value stored in the address that 
is TOS. The value can then be used in the normal way. Thus we 
could write the simple word in Figure 7.2 to print a message if the 
value stored in AGE was 18 to 20 inclusive. 

So far we have stayed with normal (two-byte) integers, as they can 
be guaranteed on all FORTH systems. However, we can also have 
double-length (and character) variables as stated before, and each of 
these types have their own store and fetch operators: C! and C@ for 
characters, and 2! and 2@ for double-length integers. C! stores the 
least significant eight bits of the stack value in the one-byte location 
given by the address on top of the stack; C@ retrieves that one-byte 
value, converts it to two bytes by adding a zero byte as its most- 
significant byte, and places this two-byte value on the stack. 2! 
stores the four bytes (i.e. the double-length integer) below TOS in 
the locations starting at the address given at TOS; 2@ fetches four 
bytes from the locations starting at the address given at TOS. 

As a variable’s address is placed on the stack whenever it is refer¬ 
enced, it should be easy to see how Pascal’s VAR type of parameter 


: AGE? 

AGE @ ( Get the value of the variable AGE ) 

DUP 18 >= SWAP 20 <= AND ( Check if 18 to 20 ) 

IF AGE @ . ."is between 18 and 20" CR 
THEN 


Fig. 7.2. 
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(passing a parameter by name) can be implemented in FORTH. As 
long as the called word knows that the parameter will be an address 
instead of a value, it can use the store (!) and fetch (@) instructions 
to store values in and obtain them from the variable. An example of 
this type of subroutine is given in Figure 7.3, though it is only pro¬ 
vided to illustrate the ability to pass parameters by name; this is 
not suggested for FORTH programs! 


PROCEDURE exchange(VAR a,b : INTEGER); 
VAR temp : INTEGER; 

BEGIN 

temp := a; 
a : = b ; 
b := temp 
END; 

Fig. 7.3a. A Pascal procedure to exchange the 
contents of two variables 


: exchange 
OVER @ 
OVER @ 

SWAP ROT ! 
SWAP ! 


( Get the contents of the first argument ) 
( Get the contents of the second argument ) 
( Store valuel in argument 2 ) 
( and value2 in argument 1 ) 


Fig. 7.3b. A FORTH word to exchange the contents of two variables 


( 15 ) VARIABLE A ( 37 ) VARIABLE B 

15 A ! 37 B ! 

A B exchange 

Fig. 7.3c. Example of the use of the word ‘exchange’ 


In spite of the above, do not immediately go overboard with vari¬ 
ables and use them in preference to the stack. If you are ever to be a 
good FORTH programmer, try to use variables only when they arc 
needed, and remember that it is possible to use the Return Stack as 
yet another scratch pad. FORTH itself uses variables: as an exam¬ 
ple, the switch from decimal to hexadecimal is achieved by altering 
the value of the FORTH variable BASE from 10 to 16 and a simple 
definition of the word HEX is given in Figure 7.4. 


Constants 

Pascal provides constants as well as variables, though BASIC does 
not. If we write in Pascal 

CONST LIMIT = 15; 
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: HEX 


16 BASE ! 


Fig. 7.4. A definition of the 
FORTH Reference Word 
•HEX' 


then whenever the compiler sees the word ‘LIMIT’ it replaces it by 
the value ‘15’. Thus LIMIT does not have space allocated at run 
time; it is purely a convenient mechanism for referring to a value, so 
that if you wanted to alter this value for a later compilation (to 20, 
perhaps), you need only change the one occurrence in the CONST 
statement rather than search through the text of your program, 
making the change wherever the value occurred. 

FORTH provides the CONSTANT statement, which is the 
equivalent of the Pascal CONST statement. To define the constant 
LIMIT with the value 15, we could write 

15 CONSTANT LIMIT 

and this would be used in a similar way to the Pascal constant 
LIMIT. Figure 7.5 is another version of Figure 7.2, using constants 
instead of numeric literals. The difference between a variable and a 
constant is that the former places its address on the stack (for use with 
T, ‘@’, etc.), whereas a constant places its value on the stack. 


Arrays 

Arrays are not a standard feature of FORTH-79, but can readily be 
implemented in any version. In essence, to declare an array we need 
a FORTH word that will allow us to specify any number of bytes of 
storage, rather than the CVARIABLE’s one byte, the VARIABLE’S 
two bytes, and the 2VARIABLE’s four bytes of storage. We need a 
general storage allocation word, and in FORTH this is the word 
ALLOT. This takes a number that is on the stack, and allocates that 


18 CONSTANT LOWER 
20 CONSTANT UPPER 
: AGE?? 

AGE @ 

DUP LOWER >= SWAP UPPER <= AND 

IF AGE @ is between " LOWER . ." and " UPPER . CR 

THEN 


Fig. 7.5. The use of CONSTANTS 


FFM-F 
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number of bytes in addition to any bytes that have been allocated by, 
for example, a VARIABLE statement. Thus instead of writing 

2VARIABLE GROSS-PAY 

we could have written 

VARIABLE GROSS-PAY 2 ALLOT 

and the VARIABLE would have declared GROSS-PAY as having 
two bytes of storage while the 2 ALLOT would have increased that 
by another two, giving four in total (as docs 2VARIABLE). 

But an array is merely a single name for sufficient storage to be 
able to hold several data values. For example, if we want an array of 
10 normal integers we need a total of 20 bytes of storage. This can be 
achieved by writing ^ 

VARIABLE percentages ALLOT +8 

We now have a variable called ‘percentages’ which has 20 bytes of 
storage allocated to it. If we write 

50 percentages ! 

we will store the value 50 in the first two bytes of this storage space. 
So how can we access the remaining 18 bytes? 

The answer is quite straightforward if you keep in mind what hap¬ 
pens when you use a variable: the address of that variable is placed 
on the stack. The second two-byte value is stored at that address 
plus 2, and while in Pascal it usually makes no sense to take the 
value of a pointer (which is, after all, what the address of the vari¬ 
able is) and do arithmetic on it, it does make sense in FORTH. Thus 
if we write 

75 percentages 2 + ! 

the ‘percentages’ places the address of the first two-byte field on the 
stack; the ‘2 +’ points past those two bytes; and the ‘!’ stores the 75 
in the two bytes that TOS points to, i.e. bytes 3 and 4 of percentages. 

In general, then, if we need an n-element array to hold single¬ 
length integers, we can declare it by writing 

VARIABLE array-name 2n—2 ALLOT 

where ‘array-name’ should be replaced by the name that you want 
to use for the array, and ‘2n—2’ should be replaced by the value of 
multiplying the number of required elements by two and subtracting 
two. To store a value v in element s, we can write (assuming clement 
1 is the first element of‘array-name’) 

v array-name s 2* + 2— ! 
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where V should be replaced by the value to be stored, "array-name’ 
by your array’s name, and ‘s’ by the number of the element in which 
you wish to store the value V. And to retrieve a value from element 
‘s’, we need only write 

array-name s 2* + 2— @ 

These principles may be readily extended to arrays of characters, 
double-length numbers, or any other data structure. We will look 
more closely at them in Chapters 9 and 10, particularly at a general 
method of implementing arrays. In the meantime, Figure 7.6 gives a 
sample program that reads 10 integers into a simple array while 
finding the largest, smallest and average values; it then prints all 
those values larger than the average, together with the largest and 
smallest. 


Strings 

A string is merely an array of characters, and hence the techniques 
for declaring and using arrays of numbers (see the previous section) 


( 

( 


-32768 ) VARIABLE BIG ( 32767 ) VARIABLE SML 
0 ) VARIABLE TENINTS 18 ALLOT 
PRINT>AV 

-32768 BIG ! 32767 SML ! ( Set BIG and SML to the 

largest negative and positive integers, respectively ) 
0 ( Set a total to zero ) 

10 0 DO 

#IN ( Read a number ) 

DUP BIG @ > (Is this one larger than the one in BIG ? ) 
IF DUP BIG ! THEN ( If so, reset BIG ) 

DUP SML @ < ( Is the number smaller than the one in SML?) 


IF DUP SML ! THEN 
DUP 

TENINTS I 2* + 


( If so, reset SML ) 
( Copy the number ) 
Calculate address of next element ) 


( and store the number in that element ) 


+ 

LOOP 
10 / 

CR ." The largest value is 
." and the smallest ” SML $ 
." The average is between 


( Add the number to the total 
( Repeat for the next number 
( Find the average 

" BIG @ . 

. CR 

DUP . ." and " DUP 1+ . CR 


Those values greater than the average are: 


10 0 DO 

TENINTS I 2* + 
@ 

OVER OVER < 

IF 

ELSE DROP 
THEN 
LOOP 


( Calculate address of next element ) 
( and get its value ) 
( Is average < element's value ? ) 
( If so, print the element's value ) 
( Otherwise get rid of it ) 

( and repeat for next element ) 


Fig. 7.6. Sample program to read in 10 integers, find the largest and smallest values, 
and print all the values larger than the average 


73 



are directly applicable to them. However, there are slight differ¬ 
ences, as FORTH provides words for both input and output of' 
strings. We have already met the words for input in the previous 
Chapter, but we can now look at them in a little more detail, together 
with some of the character utilities that the Standard guarantees. 

Suppose, for example, that we want to write a simple text proces¬ 
sor. A basic utility for that text processor would be a word to read in 
a word of text, where the word is, say, not more than 20 characters 
long. We have already met EXPECT, which reads in a number of 
characters up to a given maximum, or until the ENTER key is 
pressed. This requires the address where the character string is to be 
stored, as well as the maximum count. In Chapter 6 we used PAD as 
the address, where PAD is the address of a scratch pad area used to 
hold strings for intermediate processing. The FORTH-79 Standard 
only guarantees PAD to be at least 64 characters long, though in 
practice it will be longer than that. For the moment, we will avoid 
any possible restriction by declaring an array of characters and 
reading directly into that, not using the PAD at all. The word 
READ-WORD shown in Figure 7.7 is such an example, and 
assumes declarations like 

20 CONSTANT max-wordlength 

VARIABLE word-buffer max-wordlength 2— ALLOT 

Unfortunately this would not work for a word that really was 20 
characters long, as EXPECT adds up to two NULL characters to 
the end of the string. To allow for this, we ought to allocate an extra 
two bytes for the NULLs, giving 

VARIABLE word-buffer max-wordlength ALLOT 

As long as we do not want to print the word from the buffer, this will 
work nicely, and for the moment we will leave this definition as it is. 

Note that, apart from the peculiarities of EXPECT, this string is 
exactly the same as the PACKED ARRAY OF CHAR in Pascal, 
and the string in BASIC. In BASIC, though, strings arc normally 
preceded by a one-byte character count; we have not allowed for 
that in the above declaration, but we will modify that in a minute. 

What operations might we want to perform on strings? Typically, 
we will want to print them, compare them, and move them. The 

20 CONSTANT max-wordlength 

( 0 ) VARIABLE word-buffer max-wordlength ALLOT 
: READ-WORD 

word-buffer max-wordlength EXPECT 

Fig. 7.7. 
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most basic word for printing characters is EMIT, which we met on 
page 66. As we said then, it would be tedious to have to print out a 
string character by character using EMIT* so FORTH provides a 
string output facility as well as EMIT. The basic print word lor 
character strings is TYPE, which expects the address of the character 
string, followed by the number of characters to be printed, on the 
stack. Thus 

word-buffer max-wordlength TYPE 

will print out the contents of the buffer, but if the word is less than 20 
characters long some rubbish will be printed. We therefore need to 
form a count of the number of valid characters in the string, and as 
other character-manipulation words also use a character count it 
would be sensible to do what BASIC does: include a count of the 
number of characters in the string as the first character of the string. 

Indeed, it would also be sensible to include the maximum length of 
string that will fit in the space allocated to the variable (excluding 
NULLs, which arc not of much interest). We can then develop very 
general words to move or compare any strings, producing error mes¬ 
sages, etc. if anything silly is attempted such as moving a 30- 
character string to a space that will only hold 20 characters. To do 
this, we need only slightly modify the string declaration statement, 
to 


VARIABLE array-name max-wordlength 2+ ALLOT 

and add, to initialise it, the routine given in Figure 7.8. 

The READ-WORD routine given in Figure 7.7 should now be 
modified so that it inserts a character count into the second byte of 
the array, and this modified version is shown in Figure 7.9 as 
READ-WDL. Now if we wish to print the string using TYPE, we 
need only write 

array-name 2+ DUP 1— C@ TYPE 
and the string will be typed without any extra (rubbish) characters. 


: $INITIAL 

SWAP OVER C! ( Store the max count in byte 0 ) 

1+ 0 SWAP C! ( Zeroise the count of characters present ) 


Fig. 7.8a. 


( 0 ) VARIABLE $MESSAGE 18 ALLOT 
20 $MESSAGE $INITIAL 

Fig. 7.8b. 
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: READ-WDL 
DUP 24- 
OVER C@ 

EXPECT 
2 + 0 

OVER 2- C@ 0 
DO OVER I + C@ 
IF LEAVE 
ELSE 1+ 

THEN 

LOOP 

SWAP 1- C! 


( String address assumed to be on the stack ) 
( Set start address past the control counts ) 
( Get max number of characters ) 
( Read the string ) 
( Prepare to check for terminating NULLs ) 
( Set up DO loop control values ) 
0= ( Get a character; if a NULL, ) 

( stop the DO loop ) 
( Otherwise increment count ) 

( and repeat ) 
( Store actual count of the characters ) 


Fig. 7.9a. Reading in a string from the keyboard 


( 0 ) VARIABLE $WORD 22 ALLOT 
20 $WORD $INITIAL 
$WORD READ-WDL 

Fig. 7.9b. How to use READ-WDL 


This process may be written as a word, and is shown as S. in Figure 
7.10. 

The second type of operation we might wish to perform is to com¬ 
pare two strings for alphabetical ordering. BASIC uses the normal 
arithmetic comparison operators for strings, but Pascal only allows 
strings of the same ‘type’ to be compared in this way; FOP.TH is 
worse than either of these, forcing you to make any comparisons on a 
character-by-character basis. A sample FORTH word to compare 
two strings (using the string storage format assumed above) is given 
in Figure 7.11, returning —1 if string A alphabetically precedes 
string B, 0 if they are equal, and +1 if string A alphabetically follows 
string B. 

The last of the three functions mentioned is the move operation: 
moving a string from one variable to another. The basic FORTH 
word to do this is CMOVE, which expects the address of the ‘from’ 


: $. ( Address of string assumed to be on the stack ) 

2+ ( Form address of start of the characters in the string ) 
DUP 1- ( and the address of the character count ) 

C@ ( Get number of characters to be printed ) 

TYPE ( and print them on the screen ) 


Fig.7.10a. A word to print out a string 


$W0RD $. 

Fig. 7.10b. How to use ‘$.’ 
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: STRCMP ( String B assumed TOS, string A below it ) 

OVER 1+ C@ OVER 1+ C@ MIN ( Find shortest string ) 

0 DO OVER 2+ I + C@ ( Get a character of String A ) 

OVER 2+ I + C@ ( Get a character of String B ) 

OVER OVER < IF (If String A precedes String B, ) 

DROP DROP -1 LEAVE ( stop the loop ) 

ELSE > IF (If String B precedes String A, ) 

1 LEAVE ( stop the loop ) 

THEN ( TOS = 1 means that String B < String A ) 

THEN ( TOS = -1 means that String A < String B ) 

LOOP ( Continue if precedence not yet known ) 

DUP ABS 1 <> IF ( If finished with strings the same, ) 

OVER 1+ C@ OVER 1+ C@ ( get lengths again ) 

OVER OVER < IF (If String A shorter than String B, ) 

DROP DROP -1 ( A precedes B; but if B is the shorter,) 
ELSE > ( B precedes A; otherwise strings are equal ) 

THEN 
THEN 

ROT ROT DROP DROP ( Tidy up the stack ) 


Fig. 7.11. A word that determines the order of two strings 


string, then the address of the ‘to’ string, and then the number of 
characters to be moved, all on the stack. Thus to move five bytes 
from variable STR1 to variable STR2 we could write 

STR1 STR2 5 CMOVE 

But what happens if we have declared STR2 to be only two charac¬ 
ters long? 

We really need to check that the ‘to’ string has sufficient space for 
the ‘from’ string. If there is not enough space, the action to be taken 
is arbitrary: we might print an error message, or truncate the ‘from’ 
string, or set some error indicator, or . . . The sample word given in 
Figure 7.12 uses CMOVE to carry out the move, but it first checks 
that the ‘from’ string will fit. If it won’t, the move still takes place 
(truncating the ‘from’ string), but an error indicator (a global vari¬ 
able) is set, which you can either ignore or check yourself. It is now 
unnecessary to provide the number of characters to be moved, as 
that information is part of the string. 


( 0 ) VARIABLE $ERROR 

: $! ( "To" string assumed to be TOS? "from" string below it ) 

SWAP 2+ SWAP 2+ ( Move pointers past control info ) 

OVER 1- C@ OVER 2- C@ ( Get length of A and max for B ) 

OVER OVER > ( Check if "from" string is too long ) 

$ERROR ! ( Set error indicator to Boolean value ) 

MIN DUP 3 PICK 1- ! ( Update length of "to" string ) 

CMOVE ( Move string, truncating if necessary ) 


Fig. 7.12. A word to ‘store’ a string in a string variable 
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Now that wc have our basic input word, READ-WDL, and a 
string-move word, $!, we ought to reconsider our method of input. 
At present, we have to declare our strings two bytes longer than 
necessary to allow for the NULL characters that LXPLCT places at 
the end of the input. This is obviously wasteful, and it would make 
more sense to read the string into a ‘scratch’ area, then transfer the 
string without the NULLs into the string variable. We could use the 
PAD to act as the holding area for the string on input, giving the 
word shown in Ligure 7.13. SIN is now the equivalent of the #IN 
word that read in a number; SIN uses READ-WDL to read in a 


: $ IN ( Reads a string into PAD and leaves PAD'S address T0S ) 
82 PAD $INITIAL ( Allow for up to 80 characters ) 

PAD READ-WDL ( Read in the string ) 

PAD ( Leave address on top of the stack ) 


Fig. 7.13. Reading in a string 


character string, but leaves the address of the string on the stack. As 
with #IN, you have to store the result of the read in a variable, this 
time using S!. If you fail to store it before doing another SIN, the ori¬ 
ginal string will be overwritten by the new one and lost. 


Self-test exercises 

Write FORTH words to carry out the following functions. 

7.1 Using EMIT, print the number of asterisks given as a para¬ 
meter. 

7.2 Write the word BL, which leaves the ASCII code for a space 
(blank) on the stack. (BL is in the FORTH-79 Extended Word Set.) 

7.3 DUMP, in the Extended Word Set, is given two arguments: an 
address and a count (n). It then prints on the screen the contents (in 
decimal) of n bytes of RAM starting at the given address. Write the 
word, suitably formatting the listing. 

7.4 H. (in the Extended Word Set) prints an integer from the stack 
in hexadecimal form, but leaves the current number base (held in the 
variable BASE) unchanged. Write the word. 

7.5 Modify Figure 7.6 to read 10 integers into an array and ‘nor¬ 
malise’ them into the range 0 to 50; i.c. the largest value should be 


78 



changed to 50, with all other values being changed proportionately. 
Thus for four values only 

14 75 60 23 

should be changed to 

9 50 40 15 

7.6 Given the address of two strings of the format given on page 75, 
create a new string (in the PAD) which consists of the first string 
with the second appended to it. 

7.7 Given as the first parameter the address of a string of the for¬ 
mat given on page 75, and as parameters two (nl) and three (n2) an 
integer greater than zero: extract the characters from position nl to 
n2 inclusive of the given string and create a new string in the PAD. 
The first character is obtained by setting nl to less than 2; if nl is 
greater than the length of the string, a null string (of length zero) 
should be produced. If n2 is greater than the string’s length, the 
characters from position nl to the end of the string should be in the 
new string; if n2 is less than nl, the single character in position nl 
should be in the new string. 

7.8 Given the address of a string of the format given on page 75 as 
one parameter, and the address of a second string as a second para¬ 
meter: return a zero if the first string does not contain the second as 
a substring; return the address of the beginning of the substring in 
string 1 if it is present. 
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8 

Extended input/output 


So far we have met simple input (always from the screen) and simple 
output (unformatted, and always to the screen). We have not yet 
considered what the FORTH language actually docs when we type 
in a command. This chapter introduces formatted output, and then 
goes on to consider how FORTH uses ‘screens’ as its basic input/ 
output block and how the programmer can manipulate such screens 
of data. 


Formatted output 

Figure 5.6 gave an example of a program to print some multiplica¬ 
tion tables, but it suffered from one major drawback: we could not 
control the format of the output, with the result that the columns of 
figures did not line up. Both BASIC and Pascal allow the program¬ 
mer to control the number of columns in which a number is to be 
printed, and FORTH is no different. 

The simplest of the formatting print statements is .R (pronounced 
‘dot-R’), which unfortunately is not part of the FORTH-79 Stan¬ 
dard. It does, however, appear in the Reference Word Set, and we 
will develop a simple definition for it ourselves in case it does not 
appear in your particular implementation of FORTH. Dot-R 
accepts two arguments: the number to be printed, and the number 
of columns to be used. Thus writing 

15 5 .R 

will print the number 15 using five columns, like writing 
WRITE(15:5) 
in Pascal, or 

PRINT USING “#####”;15; 
in Microsoft BASIC. 

On page 60 we dealt with ‘scaling’, a method of avoiding the use 
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of floating-point numbers in most situations. If we followed those 
ideas, we would keep money as pence rather than pounds, but the 
question of printing the values with the decimal point in the right 
place would then arise. So far, we could only separate out the last 
two decimal digits by writing 

100 /MOD 

and printing the two halves separately, as in 
5 .R .“ .“ 2 R 

to print the quotient, followed by a decimal point, and then the 
remainder. But this docs not work properly for an amount like 301 
(pence), which would print as 

3. 1 

with a space between the point and the 1. This is obviously not satis¬ 
factory, so FORTH provides (as part of the Standard) a more basic 
level of formatted output operators. 

This, level comprises six separate words, designed to enable a 
programmer to build up a string of characters from a single number. 
This set consists of <# (pronounced ‘less-sharp’), which marks the 
beginning of the sequence of operators; # (‘sharp’), which adds a 
single digit to the string; #S (‘sharp-s’), which adds all of the 
remaining digits to the string; HOLD, which inserts a given charac¬ 
ter (from the stack) into the string; SIGN, which inserts a minus 
sign into the string if the number was negative; and #> (‘sharp- 
greater’), which terminates the build up of the string, deletes the 
number being converted from the stack, and leaves the stack ready 
to TYPE the result of the building process. As an example, let’s look 
at the way we can use these to produce a word that will correctly 
print out a cash sum as pounds, given the sum as pence. 

Essentially, the problem is to print out the last two digits of the 
number (without replacing a leading zero with a space), preceded 
by a decimal point, with the remaining digits in front of the point 
(this time without leading zeros). The pictured numeric output 
routines briefly described above build up the character string back¬ 
wards, with the word # extracting the least significant digit of the 
number and inserting it into the string regardless of its value. Thus 
our definition might start as 

: #. <# ( Start the conversion ) # # 

to extract the last two digits. Each # also divides the original num¬ 
ber by the current number base (usually left at 10), so that succes¬ 
sive #s give the correct string. 
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We then want to print a deeimal point, and this is where the word 
HOLD earns its keep. HOLD takes a value that is on top of the 
staek, assumes that it is the ASCII value of a character, and inserts 
that character into the pictured output. Thus typing 

46 HOLD ( Insert a point ) 

will insert a decimal point into the string, as 46 is the ASCII code for 
a point. Finally we need to convert the remaining digits, with only 
the significant digits printed, and terminate the conversion of the 
number into characters. That we do by adding 

#S ( Convert remaining digits ) #> ; 

giving the complete definition in Figure 8.1. If the rest of the number 
is zero, #S will put a single zero in the character string. 

This won’t quite work, for three reasons. First, we have ignored 
the possibility of negative values. Second, the routines expect to be 
given a double-length integer to convert to a string. Third, we have 
not included any instruction to print out the resultant string! The 
pictured output words (other than SIGN, of course) will only work 
with a positive value, so we first need to obtain a positive copy of it 
by writing 

DUP ABS 

before the conversion is started by <#. We can then readily convert 
it to double-length by putting a zero on the stack as the most signi¬ 
ficant 16 bits. 

All we need to do now is insert an appropriate sign using the 
SIGN operator. At the end of the conversion, before the #>, we 
need to call SIGN to insert the minus sign (it inserts nothing if the 
number is not negative). But the number that was converted had to 
be positive, and after #S has done its job that number has become 
zero anyway, so we need to access the original value with its sign. 
We use ROT to bring that value back to the top of the stack; then 
SIGN to insert the sign if the number is negative, deleting the ori¬ 
ginal value from the stack; then #> to delete the double-length zero 
from the stack, leaving the stack clear of the original number. 

: a. a 
<# 
a a 

46 HOLD 

as 
a> 

Fig. 8.1. Output word to print two decimal places 


( Start the conversion to characters ) 
( Insert the two least-significant digits ) 
( Insert a decimal point ) 
( and then the remaining digits ) 
( and terminate the conversion ) 
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The result of the conversion is two items placed on the stack: the 
number of characters in the created string (on top of the stack), and 
the address of the first character (below the count). This is a suitable 
form for TYPE to use, so including TYPE after the #> gives the 
final version of the word shown inFigure 8.2. 


: #. ( Revised version of #.a ) 

DUP ABS 0 ( Convert to positive double-length integer ) 

<tt # tt 46 HOLD #S ( Convert to characters as before ) 

ROT SIGN ( Insert minus sign if original number was < 0 ) 
ft > ( Drop the double-length zero ) 

TYPE ( and type the characters ) 


Fig. 8.2. Revised version of Fig. 8.1 to handle negative numbers 


It should be noted that the six numeric picture words allow you to 
choose any format for your output. If you wished, for example, to 
follow a number with the characters ‘DR’ if the number is negative, 
but ‘CR’ if positive, you can do so; see Figure 8.3 for an example. 
One of the problems set at the end of the chapter is to develop .R for 
yourself, using the pictured output words given above, and from 
now on we will assume that your system has this word on it. 


The input buffer and WORD 

We have already met WORD (page 53) but, after explaining its 
parameter and its result, left it until this chapter for further explana¬ 
tion. The reason was that it does not do what input functions in 
other languages do. In BASIC and Pascal, the input functions all 
read data when the program is run, and not until then. WORD, 
however, reads data from the same input stream used by the 
FORTH compiler. Thus if we write 

32 WORD abc 


: DR. ( A further amendment of #.a and #. ) 

DUP 0< IF ( If number to be printed is < 0, ) 

NEGATE ASCII D ( Make positive and put a "D" on stack ) 
ELSE 

ASCII C ( otherwise put a "C" on stack ) 

THEN 

0 SWAP ( Make the number to be printed double-length ) 

ASCII R ( Add an "R" to stack ) 

HOLD HOLD ( Put the "R", then "C" or "D", in the string) 
# n 46 HOLD #S ROT ( As before ) 

TYPE 


Fig. 8.3. A word that prints a negative number with the characters ‘DR’, and a 
positive one with ‘CR’, following it 
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WORD reads in the character sequence ‘abc’, data that is embed¬ 
ded in FORTH’s program input stream (this is how words like 
FORGET and VARIABLE can work). To understand how this can 
be done, we need to discuss FORTH’s use of an input buffer. 

FORTH sets aside a buffer for use with the keyboard. When you 
sit typing instructions into FORTH, you arc actually inputting a 
character string into that buffer. As soon as you hit the ENTER key, 
FORTH takes the data from the buffer and executes it. Thus typing 

5 6*7 + 

gets FORTH to take the 5 and put it on the stack; then 6 is put on 
the stack; then FORTH reads the ‘*’, and multiplies the top two 
values, giving 30; then 7 is placed on the stack; then FORTH reads 
the ‘ + ’, and adds the top two values, giving 37. All that is as already 
described, but until now we have assumed that all these operations 
were performed as soon as we typed them. 

If, instead of typing the above sequence of digits, we typed 

5 32 WORD 6 * 

the line would be typed into the input buffer exactly as before. When 
ENTER is pressed, FORTH would take the number 5 and put it on 
the stack; then 32 would be put on the stack; then WORD would be 
taken and, like an **’, would be obeyed. WORD reads from the 
input stream (i.e. from wherever FORTH left off reading: in this 
case, starting with the character ‘6’), until it meets the given delimi¬ 
ter, a space (32 = ASCII code for a space). Since a space follows this 
first character, WORD leaves a string comprising the number of 
characters (1) and the contents (‘6’), with the address of the charac¬ 
ter count on the stack. FORTH then continues reading from where 
the last input operation finished (i.e. starting with the **’), takes the 
asterisk and multiplies the top two stack entries—which does not 
give 30! The ‘6’ is a string, not a number, and WORD left its address 
on the stack, not its value. 

We can make this input produce the correct result by converting 
the string into a number. Figure 6.2 gave a definition of NUMBER, 
a word that will convert a string of digits into a single-length integer. 
It needs to be given the address of character count, which is the 
result of calling WORD, so typing 

5 32 WORD 6 NUMBER * 

should multiply 5 by 6, giving 30. Try it, using . to print out the 
answer. 

This is not an exciting use of WORD, but merely illustrates how it 
works. If we wanted to write an infix operator, I + , to add a number 
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that follows 1+ to a number that is on top of the stack (i.e. that pre¬ 
ceded it), we could do so by having it read the number that follows 
its use (using WORD and NUMBER) and then calling + in the 
normal way. Definitions for 1+ and I* are given in Figure 8.4, but 
note that these definitions will not work for bracketed expressions, and 
only work left to right without brackets. Thus 

5 1+ 6 I* 3 

will print 33, not 90. 

WORD will be seen in action in Chapter 9, when we look at 
general methods of implementing arrays, but it is used quite a lot by 
FORTH itself. One example is the word VARIABLE, which is fol¬ 
lowed by the name of the variable being declared. FORGET (page 
29) is another word which reads data that immediately follows it, 
and which therefore uses WORD. While it may not have seemed to 
be useful in a language which uses Reverse Polish, it is in practice 
used quite a lot. 


Screens 

Most implementations of FORTH use the ‘screen’ as the basic unit 
of input/output, rather than the more usual ‘line’ of other languages 
(though there are exceptions, such as the Jupiter Ace). A screen is 
1024 characters long, and is really based on the use of disks, where 
1024 characters is a convenient size. 1024 characters happens to be a 
particularly useful size for the TRS-80, the CRT of which has 16 
lines of 64 characters, i.e. 1024. 

All screens are considered to be 1024 characters long (character 
positions 0 to 1023), and this even holds for keyboard input. The 
keyboard is treated as Screen 0 (as Screen 0 on disk is the boot block 
and cannot be accessed by the FORTH programmer), with Screen 1 


: 1 + 

32 WORD ( Read the character string following the "I+" ) 
NUMBER ( Convert it to a number ) 
+ ( and add this to the number already on the stack ) 


Fig. 8.4a. An Infix addition operator 


: I* 

32 WORD NUMBER * 


Fig. 8.4b. An Infix multiplication operator 
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upwards referring to the disk. FORTH uses a RAM-based virtual- 
memory system for its screen input/output. In other words, if you 
attempt to read a block from disk that is not in RAM, it is automati¬ 
cally transferred from disk to RAM for you. Obviously, RAM is 
rarely big enough to hold the data of a complete disk in it, so it is 
normally necessary to share some reasonably small part of RAM 
between the disk blocks. 

This shared area is organised as a number of‘buffers’, which may 
be from 1 upwards, depending on the amount of RAM on your com¬ 
puter; MMS-FORTH for the TRS-80 is preset to 2, but this can be 
altered. Whenever a disk block is requested, an empty buffer is 
found for you and the block is transferred into it. Thus typing 

100 BLOCK 

reads block 100 from disk into a buffer somewhere in RAM. This is 
not very useful unless we know where in RAM the data has been 
stored, so BLOCK leaves on the stack the address of the first charac¬ 
ter of the block. We can then use C@ and C! to get and alter charac¬ 
ters in the buffer. If we want to develop a simple block-listing word, 
for example, we could produce the word shown in Figure 8.5a and 
call it as shown in Figure 8.5b to list block 100 from the disk. (This 
word is the same as the standard word LIST, except that LIST also 
stores the number of the block—called a ‘screen’ in FORTH to 
avoid any confusion with the disk hardware block—in a standard 
FORTH variable called SCR (pronounced ‘css-see-r’).) 

But what happens if there is no empty buffer available when we 
call BLOCK? In principle, FORTH makes a buffer available by 
emptying it, and then gives that to BLOCK for it to use. The 
‘emptying’ may be done in one of two ways: 

(a) By looking at the buffers in use to see if any of them have been 
left unaltered since they were loaded. If it does find one that fits 
this category, there is a good copy on disk. It should not matter, 


: LB 

BLOCK CR 
1024 0 DO 
DUP C@ 
EMIT 
1 + 

LOOP 


Get the address of the first character ) 
( Repeat 1024 times ) 
( Get a character ) 
( and print it ) 
( Increment address for next character ) 

( and repeat ) 


Fig. 8.5a. A word to list a screen 
100 LB 

Fig. 8.5b. Using ‘LB’ to list screen 100 
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therefore, if this RAM copy is overwritten (if needed again later, 
it can always be fetched back), and the buffer is treated as avail¬ 
able, or empty. 

(b) By writing a buffer that has been altered back to the disk, and 
then using that buffer for the new block. As this process requires 
more disk operations than (a), it is not done unless (a) fails to 
find a buffer. 

In either case, to try to minimise the likelihood of the programmer 
wanting to access the buffer just emptied, it is the buffer that has 
been longest unreferenced that is freed. 


Disk input 

The mechanism described above allows you to process simul¬ 
taneously as many input screens as you like with just a single input 
buffer, but with a lot of disk reads and writes being performed! If 
you are processing a number of files, it is obviously sensible to pro¬ 
vide more buffers, or to define a large character array and use it to 
hold a complete screen, since it is necessary to reload your whole 
FORTH system when you change the number of buffers. 

We could thus declare a variable to hold a complete screen of data 
by writing 

VARIABLE screen 1 1022 ALLOT 

If we then want to put 1024 characters from disk screen 100 into it, 
we need the address of the data from screen 100 and the ability to 
move 1024 characters from screen 100’s buffer into ‘screenT. 
FORTH provides the word CMOVE to do this type of operation, 
and writing 

100 BLOCK screen 1 1024 CMOVE 

will move 1024 characters from the address obtained by the 
TOO BLOCK’ statement to the character array ‘screenT. 


Changing disk data 

The virtual memory system works well for input, but how does it 
work for making changes to disk data, particularly in view of the 
process of finding a new buffer given in (a) above? Suppose we not 
only use C@ to read characters from the buffer, but also use C! to 
change any of them: how docs the FORTH system know that the 
buffer has been changed, and therefore needs to be written back to 


FFM-G 
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disk before the buffer is reused? The answer is very simple: the prog¬ 
rammer has to tell it! 

FORTH provides the word UPDATE, which is used to tell the 
system that a block has been updated. It only indicates that the last 
block referenced has been altered, and so must be used at least on 
the first store or write into a buffer. If UPDATE is not used, any 
changes made will simply be lost. 


Disk output 

Writing brand-new data to disk is no more difficult than input or 
amending disk data, but it can make use of the fact that there is no 
need to read a screen from disk into a buffer. Since we are going to 
create a new screen from scratch, we only need to obtain a buffer for 
it, and this is done by the word BUFFER. Thus if we want to create 
screen 140, ignoring any content that it may already have, writing 

140 BUFFER 

will find an empty buffer (using the same process as before), note 
that it is being used for screen 140, and leave the address of its first 
character on the stack. We can now use G! or CMOVE to place data 
in that buffer, but must be sure to use UPDATE to let FORTH 
know that we have actually updated it. 

We may want to fill the buffer with spaces before we store any 
data in it, and this can be done either with the word BLANKS 
shown in Figure 8.6a (and as used in Figure 8.6b), or more simply 
using the word FILL: 

140 BUFFER DUP 1024 32 FILL 

FILL is a FORTH-79 Standard word which puts a given number 
(1024) of characters (32 = ASCII space) starting at the given 
address (140 BUFFER DUP). BLANKS, on the other hand, is a 


BLANKS 

OVER 32 SWAP C! 
OVER 1+ 

SWAP 1- 
CMOVE 


( Store a space as the first character ) 
( Get address of second character ) 
( Form "FROM", "TO", and count-1 ) 
( and move N-l characters - all spaces! ) 


Fig. 8.6a. Defining a word to space-fill an area of RAM 


170 BUFFER ( Get a free output buffer for block 170 ) 

DUP 1024 BLANKS ( and fill it with spaces ) 

Fig. 8.6b. The use of BLANKS to space-fill an output buffer 
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word defined in the Reference Word Set of the Standard, which is 
the same as FILL but with the character predefined as a space. 
Thus Figure 8.6a could be more simply defined as 

: BLANKS 32 FILL ; 


All disk operations 

The virtual memory system for screens described above works very 
well, except for one minor problem: we could be left with some buf¬ 
fers in RAM that have been updated, but not yet written to disk. To 
guard against that, we need the equivalent of the CLOSE operation 
provided by BASIC and Pascal, and that is the word SAVE- 
BUFFERS. This merely writes away any updated buffers to disk. It 
does not mark the logical end of a screen as being wherever the 
last character was stored; it is up to you to ensure that you know 
where the actual end of data is! To do this you may use an ASCII 
control character following the last ‘real’ character, but unlike in 
Pascal and BASIC it is not handled automatically. 

SAVE-BUFFERS is a long word, and the Reference Word Set 
includes the word FLUSH, which is simply an alias for SAVE- 
BUFFERS. In case you want to abandon the current contents of all 
(yes, all) buffers, the word EMPTY-BUFFERS is also provided. 
This word is particularly useful when editing programs, so that you 
can abandon any buffers in RAM (the editor uses the virtual screen 
system as well). 

There are two FORTH variables, not yet mentioned, that can be 
useful when dealing with screens for input/output. The first is the 
variable BLK (pronounced ‘bee-cll-kay’), which contains the num¬ 
ber of the current screen being used for input by the FORTH inter¬ 
preter. Thus writing 

BLK @ . 

will print the number of FORTH’s input screen; zero indicates the 
keyboard. Similarly, the variable 4 >IN’ (pronounced ‘to-in’) holds 
the current character position within the screen defined by BLK. 
These might seem to be of little interest, but they can be used to get 
WORD to read from disk, for instance, rather than from the 
keyboard, just by resetting the value of these two variables. 

This can be useful for reading in program parameters from a 
(known) screen. For example, reading a number from line 3 (i.e. 
character 3*64 = 192) of screen 180 could be done as shown in 
Figure 8.7, while continuing to read FORTH instructions from the 
original position in the normal input screen immediately afterwards. 
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: GETP 

BLK @ >IN @ ( Save current values on the stack ) 
170 BLK I 192 >IN ! ( Change to new screen ) 
32 WORD NUMBER ( Read in the required value ) 
SWAP >IN ! SWAP BLK ! ( Restore the old values ) 


Fig. 8.7. Reading values from a screen using BLK, >IN and WORD 


Other output 

This section is intended to cover output to devices like the printer. 
Unfortunately the FORTH-79 Standard provides no special words 
to deal with input/output to such devices. It is therefore necessary 
either to use the screen input/output words given above, or to use 
separate words provided by the implementor of your FORTH 
system. 

MMS-FORTH uses the word PRINT to change the current out¬ 
put device from the CRT to the printer, and the word CRT to 
change back again. It also includes the word PCRT to produce out¬ 
put simultaneously on the printer and CRT. In addition, there are 
more exotic words provided to allow the programmer to use the cur¬ 
sor on the CRT. For example, PTC will move the cursor to a given 
position on the screen, and DSET will set on a given graphics cle¬ 
ment of the CRT. You will need to check the manual for your own 
version of FORTH to discover the facilities it offers, as the FORTH- 
79 Standard offers no standardisation. 


Self-test exercises 

8.1 Using your word from EX5.3, write the word .R. If the number 
is too big for the specified number of columns, use as much space as 
the number requires; if it needs fewer columns than specified, pre¬ 
cede it with spaces. 

8.2 Modify your word from EX8.1 to fill with a character given as 
a parameter, rather than always filling with spaces. At least one of 
the given characters should always be printed. Thus 

153 7 ASCII $ EX8.2 153 2 ASCII * EX8.2 

should print ‘$$$$153’ and ‘*153’ respectively. 

8.3 Amend Figure 8.5a to list a given screen, using KEY to pause 
partway through the screen and wait for some continuation to be 
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signalled. (This avoids the output scrolling of! the top of the screen 
on the TRS-80.) 

8.4 Write a more general version of Figure 8.2 which will place a 
decimal point before a given digit. Thus 

1587 2 EX8.4 1587 4 EX8.4 

will print T5.87’ and ‘0.1587’ respectively. 

8.5 Write a word to read in a series of numbers (terminated by a 
zero) from a given screen and print out the average value (rounded 
to the nearest integer). Use BLK, >IN, WORD, and NUMBER to 
do the reading. 

8.6 Write a word to read in a series of strings, none of more than 20 
characters; write them to a (new) screen, the number of which is 
given as a parameter; and print the number of words and their aver¬ 
age length, correct to one decimal place. Input is terminated by a 
null string, i.e. a string of zero length. Thus 

170 EX8.6 Now is the time for all good men 

will write the sentence to screen 170 and print out that eight words 
were present with an average length of 3.1 characters. 
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9 

Extending FORTH 


In Chapters 7 and 8 we started to use FORTH in a different sort of 
way to BASIC: we introduced new data types, like arrays and 
strings. It is true that this was necessary only because FORTH-79 
does not automatically provide them (though some implementations 
do so), but that should not disguise the fact that it is fairly easy to 
introduce brand new types of data (to be more accurate, data struc¬ 
tures). So far the method of declaring them has been very messy. 
This chapter introduces you to FORTH mechanisms that allow you 
to tidy the process up. 

A major problem with the strings etc. so far introduced is that the 
user needs to know how such data structures arc implemented 
before declaring or using them. While this is no great problem for 
the person who implements them, it would be more of a problem for 
the person who simply copies the code you produced; if he cannot 
understand the code, he will have great difficulty in using the struc¬ 
tures. It is always desirable to insulate the user from the imple¬ 
mentation, and the following material helps an implementor to do 
just that. 


Declaration of simple data structures 

The basic data declaration mechanism we have so far met is the 
VARIABLE statement. This enters the name which follows it into 
the dictionary, just as if it were a subroutine name, and then allo¬ 
cates sufficient space for the variable’s value. When we came to 
declare an array, we used this statement to carry out the declaration, 
together with the ALLOT statement to obtain extra storage. It looks 
as if the VARIABLE statement includes an implied ALLOT that 
allocates the two bytes of storage in which the variable’s value can 
be stored. That is indeed the case, so why not separate out the action 
of entering the name in the dictionary from the allocation of storage? 

FORTH does separate the two actions. The word CREATE is 
used to enter a name in the dictionary, with ALLOT used as already 
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described to allocate the required storage. Thus VARIABLE can be 
defined as shown in Figure 9.1. Note that CREATE uses WORD to 
read the name of the variable, and therefore gets the name being 
defined from the input stream, not from the definition of the word. 


: VARIABLE 

CREATE ( Enter name of variable in the dictionary ) 

2 ALLOT ( Allocate two bytes of storage ) 


Fig. 9.1. How to declare the word VARIABLE 


Thus in the statement 

VARIABLE example 

the word CREATE is given the name ‘example’ to insert in the dic¬ 
tionary. 

It is easy to see how other simple data types can be declared. If, 
for instance, we wished to declare a type of variable that held a 
single character (like the CHAR type of Pascal), we could do so by 
allocating only one byte of storage to a variable, as shown in Figure 
9.2a. 

This is fine, but what if we wished to declare a variable with an 
initial value (for instance, MMS-FORTH always sets variables to 
zero when they are declared)? One simple method is to use the store 
operators (! and C!) that we have already met, as shown in Figure 
9.2b; but it would be much nicer if this could be done automatically, 
whenever the initial declaration is performed. 

To be able to do this we must know the address of the space allo¬ 
cated for the data; after all, that is the item which is put on the stack 
when the variable’s name appears in a program, and used by the 
store operators. Since there is no limit on the instructions that can be 


: CVARIABLE 

CREATE 1 ALLOT 


Fig. 9.2a. How to declare the word CVARIABLE 


CVARIABLE STAR 
CVARIABLE POINT 

42 STAR C! (or ASCII * STAR Cl ) 
46 POINT C! (or ASCII . POINT C!) 


Fig. 9.2b. Using CVARIABLE and initialis¬ 
ing the variables declared 
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put in the definition of a word, we could write the definition to 
include the store instruction and thus ‘hide’ it from the user. It so 
happens that a word is provided by FORTH which will place on the 
stack the address of the next free byte in the dictionary. After CRE¬ 
ATE has been called, the next free byte in the dictionary is the space 
that will be allocated for the data; this address is known as the Para¬ 
meter Field Address (PFA), which is the one we need for the 
initialisation. The word is HERE, and Figure 9.3 shows how it can 


: VARIABLE 
CREATE 
HERE 
2 ALLOT 
0 SWAP ! 


( Enter name in the dictionary ) 
Put the Parameter Field Address on the stack ) 
( Allocate 2 bytes of storage ) 
( Store a zero in the Parameter Field ) 


: CVARIABLE 

CREATE HERE 1 ALLOT 0 SWAP C! 


Fig. 9.3. Declaring versions of VARIABLE and CVARIABLE that automatically 
initialise the variable to zero 


be used to obtain an address for an initial value of zero to be stored 
in the Parameter Field. Using the variable name places the PFA on 
the stack, and the fetch operator (@ or C@) can then be used to 
obtain the variable’s value in the way that we have already seen. 

This will work perfectly satisfactorily, but there is an easier way to 
achieve the same result. FORTH provides the words V (pro- 
nounced ‘comma’) and ‘C,’ (pronounced ‘sec-comma’) to insert a 
value taken off the top of the stack and insert it into the next avail¬ 
able space in the dictionary, simultaneously updating the dictionary 
pointer. Thus the ‘,’ in Figure 9.4 not only stores the zero in the 
PFA, but also does an implied ALLOT of two bytes. Otherwise 
Figure 9.4 does exactly the same as Figure 9.3. If we wanted the user 
to specify the initial value of the variable, as happens with some ver¬ 
sions of FORTH, the definition given in Figure 9.5a could be used as 
shown in Figure 9.5b to allocate a variable called ‘total’ and initial¬ 
ise it to 50. 


: VARIABLE 

CREATE ( Insert name in dictionary ) 

0 , ( Insert a zero into the next two bytes of 

the dictionary - the Parameter Field ) 

: CVARIABLE 

CREATE 0 C, 


Fig. 9.4. A simpler version of Fig. 9.3 
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: VARIABLE 

CREATE ( Enter the name in the dictionary ) 

/ ( Take a value from TOS and 

insert in the Parameter Field ) 


Fig. 9.5a. A version of Fig. 9.4 which initialises a variable to a given value 


50 VARIABLE total 

Fig. 9.5b. Using Fig. 
9.5a to declare the vari¬ 
able 'total' with an ini¬ 
tial value of 50 


Declaration of new data types 

The above ideas can be used to declare new data types (such as the 
string) without the user having to know how the data structure is 
implemented. For instance, the declaration of a string variable needs 
the first two bytes to be initialised, and rather than forcing the user 
to call SINITIAL to do this we should now be able to do it 
ourselves. The user must supply the maximum length of the string, 
so we would expect the declaration 

20 STRING message 

to enter the name ‘message’ in the dictionary, and set the first byte 
(the maximum number of characters that can be stored in the 
string) to 20. 

But what about the second byte, which contains the actual length 
of the string? The simplest way to deal with that is to set it to zero, in 
effect setting the string variable so that it contains a ‘null string’, and 
a suitable definition of the word STRING is given in Figure 9.6. 
Note that each ‘C,’ has the effect of ALLOTting one byte of storage, 
so that the explicit ALLOT need only allocate sufficient extra stor¬ 
age to hold the required number of characters. 

This approach allows us to hide the data structure’s method of 
implementation from the user for the purpose of declaring a vari¬ 
able. But what about the array introduced in Ghapter 7? The user 
still has to know how it is implemented before he can write code to 
access a particular clement of an array. This may seem a trivial 
point for the array mechanism given so far, but it is far from trivial if 
a general method of array implementation is used, where the cal¬ 
culation of an element’s address is not so simple. Even with the sim¬ 
ple array, it would be useful if the user did not have to know how to 
calculate the address of an element. 
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: STRING 

CREATE ( Enter the name in the dictionary ) 
DUP C, ( Store the max number of characters in byte 0 ) 
0 C, ( Store actual number of characters in byte 1 ) 
ALLOT ( Allocate storage for given number of characters ) 


Fig. 9.6. A word that can be used to declare strings, initialising the control bytes 


Implementation of complex data structures 

For the sort of array we have seen so far, there are two distinct points 
in time when a calculation has to be performed. The first is when the 
array is declared, so that the necessary storage space is allocated and 
any initial values are set up. The second is when the array is used 
(i.e. an element accessed), when the calculation of the address of the 
required element has to be performed. FORTH splits the instruc¬ 
tions associated with a word into two distinct classes: the instruc¬ 
tions to be obeyed when the data type is being defined (known as the 
‘compile-time action’ of the word used to define the data type); and 
the instructions to be obeyed when the data type is being used 
(known as the ‘run-time action’ of the word used to define that data 
type )- 

The simplest example of this split is the word CONSTANT. Con¬ 
trary to what you were led to believe in Chapter 7, CONSTANT is 
not quite the same as the Pascal CONST statement. A CON¬ 
STANT is actually the same as a VARIABLE, but when it is used it 
places its value on the stack instead of its address. In other words, its 
compile-time action is the same as that of VARIABLE (entering the 
name in the dictionary and reserving space for its value), but its run¬ 
time action is different. So how does FORTH differentiate between 
the two actions? 

Exactly the same process is used for defining the word, but now 
the word DOES> is used to introduce the run-time action. The 
general format is shown in Figure 9.7, where ‘type-name’ is the 
name of the data structure being declared, such as CONSTANT or 
STRING. Whenever this ‘type-name’ is called, the compile-time 
actions are performed, and the name entered in the dictionary by 
CREATE has the specified run-time actions associated with it. Thus 
whenever the defined word is used, the run-time actions of ‘type- 
name’ are performed. 

As an example, let’s look at a definition of CONSTANT. The 
compile-time action is the same as that specified for a variable in 
Figure 9.5a, but the run-time action is to place its value on the stack 
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: type-name 

compile-time action DOES> run-time action 


Fig. 9.7. General form of a ‘defining word' 


rather than its address. CREATE, used to insert the constant’s 
name into the dictionary, always places the Parameter Field 
Address on the stack as the initial run-time action of the defined 
word, so we need to insert an instruction to get the value. We should 
be able to use the fetch operator (@) to do this, giving the definition 
shown in Figure 9.8. The important thing about understanding 
what CONSTANT does is to remember that the PFA is placed on the 
stack as the initial run-time action before obeying the run-time 
actions you have specified following the DOES> word. 


: CONSTANT 
CREATE 

DOES > 

0 


Fig. 9.8. An example definition of the defining word CONSTANT 


( Enter name in the dictionary ) 
( Store value in the Parameter Field ) 
( Places the PFA on the stack at run time ) 
( Fetches the value from the Parameter Field ) 


Now let’s return to the data structure that started off this discus¬ 
sion: the simple array. At compile time, the word will be given the 
number of elements in the array. We only need to double this and 
allocate that number of bytes. But when the array name is used, it 
will have an element number (the subscript or index) given, and this 
has to be used to calculate the address of that element. Since the 
subscript was on the stack before the name of the array was given, 
the PFA (i.e. the address of the first element) is placed on the stack 
above the subscript, and therefore the definition given in Figure 9.9 
is used. 

This is not the whole of the story, however. The code for both the 
compile-time and run-time behaviour can be as complex as you like, 
rather than the simple code so far shown. As an example that is a lit¬ 
tle more complex, Figure 9.10 gives an example of a word that 
defines strings as before, but allows the user to access a single charac¬ 
ter of the string if he wishes. Thus 

20 ATYPE name 

allocates a string called ‘name’ capable of containing 20 characters, 
and 

0 name 
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1ARRAY 
CREATE 

2 * 

ALLOT 

DOES> 

SWAP 

2 * 


( Enter name in the dictionary ) 
( Multiply number of elements by 2 ) 
( Allocate storage at 2 bytes per element ) 
( Places the PFA on the stack at run time ) 
( Bring element number above the PFA ) 
( Calculate the byte number in the array ) 


( Add the byte number to the PFA [address of 1st byte] ) 


Fig. 9.9. A word for the declaration of arrays of one dimension 


: ATYPE 

CREATE DUP C, 
DOES> 

SWAP 
DUP IF 
+ 1 + 

ELSE 

DROP 

THEN 


0 C, ALLOT ( Same as for STRING ) 

( Bring subscript to top of stack ) 
( If subscript is not zero: ) 
( form address of the specified character ) 
( If subscript is zero: ) 
( leave the PFA [address of the string] ) 


Fig. 9.10. A version of STRING that allows the string to be treated as an array of 
characters 

treats ‘name’just as if it had been declared using STRING, placing 
the address of the first control byte on the stack. However, 

6 name 

places the address of the sixth character of the string (not counting 
the two control characters) on the stack. 

An example of how this idea can be extended to introduce quite 
complex data structures is covered in Chapter 10, where a descrip¬ 
tion of the implementation of multidimensional arrays is given. 

Compilation versus execution 

This chapter has introduced the notion of compile-time and run¬ 
time behaviour without really talking about the way that FORTH 
works. In Chapter 2 it was stated that FORTH has an ‘immediate’ 
mode of execution, when it behaves like a calculator, and a ‘delayed’ 
mode, when it looks as if it is simply memorising instructions. These 
two modes directly correspond in FORTH to the ‘compile 1 mode 
and the ‘execute’ mode, as they are called. FORTH even provides 
operators to switch between the two, as we shall see later, and pro¬ 
vides a variable that keeps track of the current mode. This variable, 
called STATE, contains the value zero if in execution mode, or non¬ 
zero (usually 1) if in compilation mode. This is particularly useful if 
you want to write a word that takes different actions depending on 
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whether you are compiling or executing, though that facility is not 
often needed. 

The compilation process itself is quite simple. As soon as the colon 
(:) of a definition is reached, the name that follows it is entered into 
the dictionary; if STATE is already set to compilation mode, there is 
an error. All subsequent statements (up to a semicolon) are then 
entered into the dictionary. The name of a word has the address of 
its first instruction (known as its ‘compilation address’) entered; a 
constant (such as 10) has a special word compiled, followed by the 
actual constant, the combined effect of which is to load the desired 
constant onto the stack at execution time. Thus it requires less stor¬ 
age to write 

DUP + 

(two entries in the compiled program) than 

2 * 

which requires three entries: one for the loading word, one for the 
constant 2, and one for the multiplication word. 

Note that any word following the colon and name is compiled into 
the definition. If the name cannot be found in the dictionary, the 
definition is considered to be faulty and an error reported. This cre¬ 
ates a major problem for recursive words, and how that is overcome 
is outlined in the next section. But what if the definition (as opposed 
to the call) of a word requires some parameters to be given to it? 

You may feel that a definition that is dependent on parameters 
being given to it is very unlikely. But suppose our simple array dec¬ 
laration was intended to be capable of handling the definition of 
character arrays and double-length number arrays as well as the 
standard single-length numbers. The run-time behaviour would 
then be dependent on the number of bytes per element, which would 
vary with the type of array. We would need to build the value of the 
parameter (1, 2 or 4) into the definition, so that when 1 ARRAY is 
called it calculates the correct number of bytes for ALLOT to allo¬ 
cate. 

In other words, we might like to be able to write 

2 1 ARRAY rest-of-thc-definition ; 

to have 1 ARRAY able to declare arrays of single-length numbers, or 

1 1 ARRAY rest-of-the-definition ; 

to have 1 ARRAY able to declare arrays of characters. Before we can 
look at this in more detail, we need to look at a more general facility 
in FORTH: the ability to tell FORTH to stop compiling and to go 
back to execution mode (and vice versa, of course). 


99 



FORTH provides two operators to allow this switching between 
the two modes: ‘[’ (pronounced ‘left-bracket’), which ends compila¬ 
tion mode and enters execution mode; and ‘]’ (pronounced ‘right- 
bracket’), which ends execution mode and enters compilation mode. 
Thus we can stop the compilation, do a calculation, and then re¬ 
enter compilation mode and use the value just calculated. 

The story is not quite this simple, however. The value that we 
obtain from such a calculation is on the stack at compilation time, 
not at execution time. We therefore need a method of telling the 
compiler to take a value ofT the stack and to include it in the defini¬ 
tion of the word. FORTH provides the word LITERAL to do just 
this. It takes the value on top of the stack, compiles a word which, at 
execution time, will load a number onto the stack, and then com¬ 
piles the given number following the load word. Figure 9.11a gives 
an example of a word to multiply a value by 5, and is written in the 
normal way. Figure 9.11b defines the same function, but the 5 is 
merely a value that is on the stack before M2 is compiled rather than 
one that is embedded in the definition. 

Note the extra [ SWAP ] in the definition. When compilation 
mode is entered with the colon, the compiler places a value (an extra 
one) on the stack, which is later removed by the semicolon. This 
makes the parameter given (the ‘5’ in this case) the second item on 
the stack. To bring it to the top without destroying the number on 
top of the stack we need to use SWAP. However, if we were to write 
‘SWAP’ without the left and right brackets, the compiler would 
insert it as an action to be performed when M2 is called, and not 
treat it as an action to be obeyed during the compilation. 

As it is, the left bracket says: stop putting the addresses of instruc¬ 
tions into the definition of M2; instead, start executing them. When 
the SWAP has been performed by the compiler, the right bracket 
says: stop executing the instructions; restart the process of putting 
the addresses of instructions into M2’s definition. 

This whole discussion started from the consideration of the defini¬ 
tion of an array that could be used to declare arrays for which the 
number of elements per byte is fixed only when the array declaration 


: Ml 5 * 

Fig. 9.11a. 


5 

: M2 [ SWAP ] LITERAL * 

Fig. 9.11b. An alternative definition of Fig. 9.1 la 
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word is itself compiled. Figure 9.12 defines the word ARRAY, which 
does just this. If the definition was in Screen 324, we could use the 
FORTH word LOAD to read in the definition and set ARRAY to 
declare arrays of characters by writing 

1 324 LOAD 

The word ARRAY could then be used to declare arrays where each 
clement occupies only one byte. So writing 

50 ARRAY X 

would declare ‘X’ to be a 50-element array, where each element 
occupied one byte. However, if we wished to use ARRAY to declare 
arrays of double-length numbers (with four bytes per element), we 
could write 

4 324 LOAD 
and then writing 
100 ARRAY Y 

would declare ‘Y’ as an array having 100 elements each of four 
bytes. 

Note that the value given to ARRAY has to be used twice by the 
compiler: once for the calculation of the space needed for the ele¬ 
ments when ARRAY is called to declare an array, and once for the 
calculation of a specific element’s address. Thus the [ OVER ] 
copies the parameter onto the top of the stack so that it can be 
included in the action to be taken when an array is declared, and the 
[ SWAP ] makes the parameter available for inclusion in the action 
to be taken when a declared array is accessed. 

There is one more important facility in FORTH, used a lot by the 
compiler itself. Earlier on, much was made of the desirability of hid¬ 
ing the implementation of a data structure from its user—not for 


: ARRAY 

CREATE ( Enter name in the dictionary ) 

[ OVER ] LITERAL ( Insert number of bytes per element ) 

* ( Calculate number of bytes needed for the array ) 

ALLOT ( and allocate the space ) 

DOES> ( Put PFA on stack at run time ) 

SWAP ( Bring subscript to TOS ) 

[ SWAP ] LITERAL ( Place number of bytes per element, 

given at compile time, on the stack ) 

* ( Calculate the byte number in the array ) 

+ ( Add the byte number to the PFA [address of 1st byte] ) 


Fig. 9.12. A defining word for arrays of one dimension which is dependent on para¬ 
meters given at compile time 
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security reasons, but just to make it easier to use. In a similar way, it 
can be useful to hide the fact that the compiler needs to stop compil¬ 
ing and do some work, and then restart compiling. For example, the 
word BEGIN does not need to compile anything: it only needs to 
make a note (on the stack) of the current address of the code so that 
REPEAT knows the address that it must go back to for the next 
iteration. Its actual definition is 

: BEGIN HERE ; 

But since BEGIN is used in compilation mode, it will not be 
executed unless it is surrounded by brackets; BEGIN will be com¬ 
piled instead of executed, and hence no note will be made of the cur¬ 
rent address! 

Since BEGIN works quite well without being surrounded by 
brackets, FORTH must provide some trick to ensure that words of 
this type are executed without the user having to know what they do 
or how they work. Rather than requiring you to switch to execution 
mode before BEGIN is called and back again after it, FORTH hides 
the process of switching from you, in keeping with the view 
expressed earlier: divorce the user from the implementation. 

The need for a word to be executed even during compilation is 
indicated by the word IMMEDIATE following the definition. In 
other words, if a definition of a word is given in the normal way, and 
the word IMMEDIATE follows it, that word is executed even in 
compile mode. Thus Figure 9.12 could be rewritten as Figure 9.13 
and it would still work: Cl now replaces the [ OVER ] of Figure 
9.12 and C2 the [ SWAP ]; the use of the word IMMEDIATE for 
these two removes the need for the surrounding brackets. IMMEDI¬ 
ATE affects only the last word defined, and makes it into a word 
that is executed whether in compile or execute mode. 

: Cl 
OVER 

IMMEDIATE 
: C2 
SWAP 

IMMEDIATE 
: ARRAY 
CREATE 
Cl LITERAL 

* ALLOT 
DOES > 

SWAP 

C2 LITERAL 

* + 

Fig. 9.13. A demonstration of the use of the word IMMEDIATE 


( Copy the number of bytes per element ) 
( Force Cl's execution even when compiling ) 
( Bring number of bytes per element to TOS ) 
( Force C2's execution even when compiling ) 

( Cl will be executed before compilation goes on) 

( as will C2 ) 
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This in turn can create a problem. What if we need to compile a 
word that has been made IMMEDIATE? There appears to be no 
means by which that can be done. After all, that was the reason for 
making the word IMMEDIATE. However, there arc occasions 
when it is necessary to do so (the definition of ASCII in Figure 7.1a 
is one such), and so the word [COMPILE] is provided, complete 
with the square brackets and without spaces between the brackets 
and the word ‘COMPILE’. [COMPILE] forces the compilation of 
the word that follows it, even if that word is an IMMEDIATE one. 
Thus 

: TEST [COMPILE] BEGIN ; 

forces the word BEGIN to be compiled into the definition of TEST 
rather than executed during the compilation process. As a result, 
BEGIN will not be executed until TEST is called. 

With all this section behind you, look more closely at Figure 7.1a 
to see if you can now understand how it works. 

There are a number of other words in FORTH, but they are 
either easy to understand or rarely wanted—mainly the former. If 
you read your FORTH manual (which will include some machine- 
dependent words, such as manipulating the graphics facilities), you 
should be able to build on the base that the preceding material has 
given you. 


Recursion 

Recursion is a peculiar topic, in that people find it cither incredibly 
easy or incredibly difficult. This is not intended to be a treatise on 
recursion, however, since it is covered in greater depth in a number 
of other books, and you may care to discover its glories in the com¬ 
panion volume on Lisp. 

In essence, recursion is merely another way of implementing a 
loop, and with that the newcomer to recursion may lose interest; but 
it is the approach to a problem, and the different way of thinking 
about it, that makes recursion important. Recursion can lead you to 
a really elegant (i.e. short, and usually very easy to understand) 
solution to a problem, a particularly good example being the Towers 
of Hanoi problem. Rather than introducing recursion as a new sub¬ 
ject, though, this section merely indicates how recursion can be 
implemented in FORTH. 

Unfortunately the FORTH-79 Standard says nothing about how 
FORTH words can incorporate recursive calls. To some extent, 
therefore, you will have to check with your own implementation of 


FFM-H 
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FORTH to sec how to do it. However, a number of implementations 
use the same method, and that is what is described here. If'you feel 
that it should not be a problem, you are right—but the key word is 
‘should’! In practice, FORTH systems usually do not enter a word 
into the dictionary until its definition is complete. This means that 
the use of the word’s name as part of its own definition fails, as the 
compiler searches the dictionary for it but does not succeed (because 
the definition is not yet complete). FORTH therefore thinks that 
you have made a mistake, and reports an error. 

This is not very helpful, to put it mildly. MMS-FORTH gets 
round this problem by defining a constant called MYSELF to be the 
compilation address, as it is called, of the word currently being 
defined. This constant is updated every time a new word is compiled 
so that it always refers to the new word. Using MYSELF in this 
way, a simple definition of the well-known factorial function is given 
in Figure 9.14. 


: FACTORIAL 
DUP 0= IF 
DROP 1 

ELSE 

DUP 1- 
MYSELF 

* 

THEN 


( If factorial zero is wanted: ) 
( return the value 1 ) 

( Keeping a copy of N, form N-l ) 
( Calculate Factorial[N-l] ) 
( and multiply by the kept copy of N ) 


Fig. 9.14. A recursive definition of FACTORIAL 
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10 

Program development 


Designing a large program is very different from designing the little 
scraps of program we have dealt with so far. Little programs are 
sufficiently small for the programmer to be able to sec the whole 
problem in one go, and to write the code and test it fairly easily. 
Something like a payroll program, however, is too complex to see in 
one go; it is more easily seen as a scries of tasks to be performed, with 
the detail of the tasks not becoming clear until each task has some 
effort concentrated on it. 


The design process 

Designing a program by creating a series of tasks, then taking each 
task in turn and expanding that in terms of a series of subtasks 
where much more detail is gone into, and if necessary expanding 
those subtasks (and so on), is known as ‘top-down design’. While 
there are a number of program design techniques in vogue at pre¬ 
sent, top-down design is the basic approach to the design of systems 
in computing. 

As an example of the process, consider a program to read text and 
count the number of words in it. Before we can start work on the 
program, we need to define what is meant by a ‘word’. The defini¬ 
tion is rather arbitrary, and for simplicity we will use the following: a 
word starts with a letter or digit, and consists of letters and digits 
only. Any other character or sequence of characters is treated as a 
word separator. Thus ‘X’ is a word; so is ‘123’; but ‘1,364’ is two 
words (‘I’ and ‘364’, separated by a comma). The definition can 
readily be changed if you wish to do so, and in practice the precise 
definition of a ‘word’ could be left until later. 

The basic program can now be summarised fairly simply: 

(a) Zeroise the total number of words, get ready to read the data file, 
and take any initial actions (such as finding out where the data 
is!). 
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(b) While we have not reached the end of the text file: 

(i) Skip leading non-words. 

(ii) Read a word. 

(iii) Increment the number of words. 

(c) Print the total from (b). 

At this stage, of course, we may have no idea what will be involved 
in detail for each step. 

The next stage is to take one of the above steps and develop it 
further. To continue the example, we will expand (b-i), and at this 
point we must decide (if we have not done so already) on the defini¬ 
tion of a word. As we have already done so, and since the easiest 
input method is to read one character at a time, it should consist of 
the following steps: (1) get the next character; (2) while the charac¬ 
ter is neither a letter nor a digit, and the end of the text has not been 
reached, get another character. 

Step (b-ii) is very similar, and consists of the steps: (1) get the 
next character; (2) while the character is either a letter or a digit, 
and the end of the text has not been reached, get another character. 

Steps (b-iii) and (c) are both tasks that we ought to know how to 
do once we know where the values arc stored, so we need go no 
further with them. Similarly steps (b-i-1) and (b-ii-1), and steps (b-i-2) 
and (b-ii-2), should be tasks that we feel we could do, and they therefore 
need not be developed further until we write the necessary code. Thus 
at this stage the basic ideas are clear, and we now have to worry about 
the methods to be used for implementing them. 


Coding 

The development of the code can be done in a number of ways, 
though the two basic methodologies are top-down and bottom-up. 
In the latter, the low-level code (for example, the code for step (b-i- 
1)) would be written, then (b-i-2), then (b-ii-1), and so on. There 
are problems with this approach, however. For example, it is all too 
easy to write code making assumptions that turn out to be invalid 
when we write code later on for the higher levels. For the purpose of 
this example the top-down coding method will be followed (though 
it should be said that all my practical coding now uses this 
approach—it is not just theory!). 

The top-down approach starts by writing code for the program 
without worrying about how lower-levels of the design are to be 
implemented. Thus we might write the code shown in Figure 10.1 as 
a first attempt at the overall program. 

However, this simply will not compile. As stated in Chapter 9, 
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Block 158: 


: COUNT-WORDS 
INITIALISE 
BEGIN 

SKIP-NONWORDS 
EOF NOT WHILE 
READ-WORD 
INCREMENT-COUNT 
REPEAT 
PRINT-TOTAL 

Fig. 10.1. 

FORTH expects all the words used by a new word to have been 
defined already (in the same sort of'way as Pascal). Even if it did 
compile, what on earth would it do when COUNT-WORDS called 
INITIALISE? At this stage, however, these difficulties are unim¬ 
portant, because we need not attempt to compile and run this code 
(though it is possible to do so, as we shall see later in the section on 
program testing). 

In exactly the same way as for the design process, we now take the 
next level of code (such as SKIP-NONWORDS) and expand it, 
writing specific FORTH instructions. As we go, we will find it neces¬ 
sary to make decisions about the methods to be used to implement 
the requirements. For example, arc we to use variables to hold 
values, or the stack? If a mixture of the two, which values are on the 
stack? What parameters, if any, does each word need (the use of 
variables reduces the need for parameters)? 

The remainder of this section takes you through the development 
of the program. As far as possible, the decisions (and the reasons for 
them) taken at each step of the code development are given as the 
code develops. 

Initialise 

Initialise needs to zeroise the number of words read; ensure that 
end-of-file is not set; find out where the text is stored, by interacting 
with the user; and initialise any values used to keep track of the cur¬ 
rent position in the text. Screens arc going to be used for the file(s), 
so all input and output will use the screen words such as BLOCK. 
This means that the file will be in one or more screens, and to allow 
complete flexibility we could allow the user to specify the character 
position within a line within the screen for both the start and end 
positions. End of file will then need to be set when the end position 
has been passed. Using BLOCK means that we will have to use C@ 
to get a character, and therefore the line number and character will 
have to be converted into a character position within the bufFer. 


107 



The only problem then remaining is whether the various values to 
be kept are to be held on the stack or in variables. There are so many 
of them that some will be more easily kept in variables than on the 
stack, and it is merely a matter of deciding which is which. For the 
sake of consistency, all the character position information will be 
kept in variables, as will the ‘end of file’ truth value. 

All this leads to the definition given in Figure 10.2. 

Block 157: 


: INITIALISE 
BEGIN 

CR Which starting block? " #IN CURRENT-BLOCK ! 

CR Starting line number? " #IN 64 * (64 chs/line ) 

CR Starting character position? " #IN + 

DUP CURRENT-CH ! 

1024 < UNTIL CR ( Repeat until char position is < 1024 ) 

BEGIN 

CR ." Which is the final block? " #j'N DUP END-BLOCK i 
CURRENT-BLOCK @ < NOT ( Check final >= start ) 

CR ." Final line number? " #IN 64 * 

CR Final character position? " #IN + 

DUP END-CH ! 

1024 < AND UNTIL ( Repeat until last char >= 1st char posn) 
0 EOF ! ( Set EOF to False ) 0 ( and number of words to 0) ; 

Fig. 10.2. 


EOF? 

This word needs to test whether the character to be read is beyond 
the end of the section of the screen specified by the user as the end of 
the file; if so, the EOF variable needs to be set to ‘true’. It may not 
be necessary to store the Boolean value that results from the test in a 
variable, but it does no harm to do so, and allows several words to 
test the condition without repeating the character position tests. 
Suitable code for this function is given in Figure 10.3. 


SKIP NONWORDS 

This is going to have to get a number of characters, as it is using a 
loop. Keeping the character address alone (rather than the address 
of the start of the buffer and, separately, the character position 
within it) creates a problem with the detection of reaching the end of 
the buffer, but it simplifies the process of getting a character. Opting 
for the easy life, this word keeps the two separate, but keeps them on 
the stack to avoid the overhead of continually accessing variables. 
And rather than introduce more variables to hold the current buffer 
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Block 156: 


: EOF? 

3 PICK 

END-BLOCK @ - 
DUP 0< 

IF DROP 0 
ELSE 

IF 1 
ELSE 

DUP END-CH 
> ( If 

THEN 
THEN 
EOF ! 


( Get number of current block ) 
( and subtract number of final block ) 

( If final block not reached: False ) 

( If final block passed: True ) 

@ ( Get current and final char positions ) 

final char passed: True; otherwise: False ) 


( Set EOF to Boolean result ) 


Fig. 10.3. 


address, the word uses the current screen number and BLOCK to 
get the buffer address on entry. 

There are some subsidiary requirements within this word, 
however. We need to be able to tell whether or not a character is a 
letter or a digit, or neither; and when we have dealt with character 
1023 of one screen we need to be able to switch to character 0 of the 
next screen. With this in mind, Figure 10.4 gives the code for SKIP- 
NONWORDS. 

ALPHANUMERIC? This assumes that the character to be tested 
is on the stack, and as usual with a function it should remove the 
parameter from the stack and replace it with the required Boolean 
result. Since we have to make two separate tests (one to see if the 
character is a letter, and one for a digit), it would be sensible to code 


Block 155: 


SKIP-NONWORDS 
CURRENT-BLOCK @ 
CURRENT-CH @ 
BEGIN 

OVER OVER 
ALPHANUMERIC 
( If not digit, 

1 + 

END-OF-BLOCK 

EOF? 

REPEAT 

CURRENT-CH ! 
DROP 

CURRENT-BLOCK ! 


DUP BLOCK ( Get address of current block ) 
( and of the current character position ) 

C@ ( Get next character ) 

NOT EOF @ NOT AND WHILE 
nor letter, nor eof, keep reading characters) 
( Increment character position ) 
( If necessary, move to next block ) 
( Check if end of data has been reached ) 

( Save position reached in the block ) 
( Get rid of the address of the block ) 
( Save number of current block ) 


Fig. 10.4. 
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these two tests separately; they could then be used separately for 
some future program. This consideration leads to the code given in 
Figure 10.5. 

Note that the test for a letter deals with upper and lower case 
simultaneously. Even though the two cases are disjoint in the char¬ 
acter set, ORing the 32 bit makes any upper-case letter into lower¬ 
case. 

Block 154: 

: ALPHA? 

32 OR ( If upper case, convert to lower case ) 

DUP 96 > SWAP 123 < AND ( Check in range 'a' to 'z' ) 

: NUMERIC? 

DUP 47 > SWAP 58 < AND ( Check in range 'O' to '9' ) 

: ALPHANUMERIC? 

DUP ALPHA? SWAP NUMERIC? OR 


Fig. 10.5. 


END-OF-BLOCK? This word merely checks whether the current 
character position within the block has passed 1023. If it has, it 
moves to the next screen and restarts at character 0. Because the 
current character position is held on the stack and not separately 
placed on it as a parameter, this word must not remove the value 
from the stack before it exits. Its simple definition is given in Figure 
10 . 6 . 


READ WORD 

This word is almost exactly the same as SKIP-NONWORDS. The 
only difference is that the loop continues for the negative of the loop 
condition, giving the definition shown in Figure 10.7. 


Block 153: 


: END-OF-BLOCK? 

DUP 1023 > ( If character position > 1023, new block needed) 
IF DROP DROP ( Get rid or char posn and block address ) 
1+ ( Increment block number ) 

DUP BLOCK ( Get address of next block ) 

0 ( and reset character position to first character ) 

THEN 


Fig. 10.6. 
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Block 152 : 


: READ-WORD 

CURRENT-BLOCK @ DUP BLOCK ( Get address of current block ) 
CURRENT-CH @ ( and of the current character position ) 

BEGIN 

OVER OVER + C@ ( Get next character ) 

ALPHANUMERIC? EOF @ NOT AND WHILE 
( If digit or letter, and not eof, keep reading characters ) 
1+ ( Increment character position ) 

END-OF-BLOCK? ( If necessary, move to next block ) 

EOF? ( Check if end of data has been reached ) 

REPEAT 

CURRENT-CH ! ( Save position reached in the block ) 

DROP ( Get rid of the address of the block ) 

CURRENT-BLOCK ! ( Save number of current block ) 

Fig. 10.7. 

INCREMENT-COUNT 


All that this word has to do is increment the count. As the character 
manipulation words SKIP-NONWORDS and READ-WORD 
remove their data from the stack on exit, this need only be the simple 
increment word, 1 + . Rather than write a word to do this, it is easier 
to replace INCREMENT-COUNT with the word 1+ directly, giv¬ 
ing a slightly updated version of Figure 10.1 as Figure 10.8. 

PRINT-TOTAL 

Last, but not least, we need to produce a simple report of the num¬ 
ber of words counted. As the main program stops with the number 
of words on top of the stack, it need only print a simple message. If 
other values had been left on the stack, it would also be necessary to 
clear them, leaving the stack in the same condition as it was on 
entry. In this case, however, the code is simply as shown in Figure 
10.9. 


Block 151: 


: COUNT-WORDS 
INITIALISE 
BEGIN 

SKIP-NONWORDS 
EOF @ NOT WHILE 
READ-WORD 
1 + 

REPEAT 

PRINT-TOTAL 


Fig. 10.8. 
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Block 150 

( 0 ) VARIABLE END-BLOCK ( 0 ) VARIABLE END-CH 

( 0 ) VARIABLE CURRENT-BLOCK ( 0 ) VARIABLE CURRENT-CH 

( 0 ) VARIABLE EOF 

: PRINT-TOTAL 

CR ." The total number of words is " . CR 

Fig. 10.9. 

Program testing 

Having written the code for the program, we now have to test it. We 
could simply throw it all together and hope that it works, but that 
will give us problems. Any one of the words could be wrong; worse 
still, any combination could be wrong. Trying to debug the whole 
program in one fell swoop will not work well unless we are very 
lucky. 

There are two basic approaches to testing, and you have probably 
guessed their names: top-down and bottom-up. The latter takes a 
word that is (usually) at the lower level of the code, like ALPHA?, 
and checks that it works correctly; then perhaps NUMERIC?, then 
ALPHANUMERIC?, and so on, gradually working up to the higher 
levels of the code. For words that have parameters passed to them, 
this can work quite well; but what of words like END-OF-BLOCK?, 
which requires data to be set up on the stack that is not really 
intended to be an input parameter? In this latter type of case, before 
each word can be tested it has to have its ‘environment’ initialised 
(i.e. the stack and any variables used have to be set to appropriate 
values) as if the higher levels of the program were working. 

This can indeed be done, but the top-down approach automati¬ 
cally does it for you. This system starts by running Figure 10.1 (or 
Figure 10.8 if your coding has reached that far) without all the other 
code! But earlier it was said that FORTH would refuse even to com¬ 
pile something like Figure 10.8 unless all the called words were 
already defined. This is quite true, but the cunning of the method 
now comes to light: all the called words are defined, but as dummy 
code (known as ‘program stubs’). These stubs may be empty, as for 
example 

: END-OF-BLOCK? ; 

which will work fine as long as the start and end screen numbers are 
the same; or they might be a simulation of the real thing, as for 
example 

: EOF? DUP END-CH @ > EOF ! ; 
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which again works fine as long as the start and end screen numbers 
are the same. 

The initial stage, then, is to provide program stubs for the words 
called by Figure 10.8 and test it. If it works, replace one of the called 
stubs by a fuller version. For instance, replace the stub for SKIP- 
NONWORDS with the version given in Figure 10.4, but with prog¬ 
ram stubs now for ALPHANUMERIC?, END-OF-BLOCK?, etc. 
When this works, replace one of the other program stubs (READ- 
WORDS, perhaps, or ALPHANUMERIC?), and retest. Every time 
the program—or rather the partial program—works, replace a stub 
with a fuller version and retest. When all the stubs have been 
replaced by their full code, you will have a working program. 

The beauty of the process is that each routine is tested with the 
necessary data generated by higher levels of code already there. 
Testing is therefore less prone to induced error, and debugging is 
easier. Its disadvantage is that the program stubs have to be written, 
but interestingly this top-down testing method is always a hit with 
programmers when they (a) have a large program to develop, and 
(b) have actually tried it rather than just read about it. The method 
is applicable in conjunction with top-down design and top-down 
coding. In fact, my large programs are tested top-down before lower 
levels of the design are started, let alone finished, and it produces 
easily debugged code. Try it; it is well worth overcoming any initial 
aversion! 

One final point: it is not necessary for your FORTH program to 
be written and stored on disk with the lower-level routines physi¬ 
cally preceding higher-level routines. The use of a ‘load block’ (see 
Figure 10.10) enables you to define your routines in any order, this 
block being used to load them in the required sequence. Typing in 

159 LOAD 

will, for this example, load the routines in the order specified in the 
load block, not in their physical order on disk. 


Block 159: 


150 LOAD 
153 LOAD 
156 LOAD 
155 LOAD 
152 LOAD 

151 LOAD 


154 LOAD 
157 LOAD 


Fig. 10.10. Load Block for Figs. 10.2 to 10.9 
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Multidimensional arrays 

There arc a number of ways of providing array facilities for users of a 
programming language. The simplest is to write a different array 
declaration statement for each type of array being declared. Thus we 
might write 1 ARRAY for declaring one-dimensional arrays, 
2ARRAY for two-dimensional arrays, and so on. However, this is 
not particularly economic, and creates some problems if we want to 
allow, for example, the passing of an array to a subroutine as a para¬ 
meter. This is because the subroutine needs to be given a consider¬ 
able amount of data about the array before it can do things like 
checking that the correct number of subscripts has been given, and 
that the subscripts are valid. (As stated in a a previous chapter, it is 
desirable to carry out checks wherever it is possible and reasonable 
to do so.) 

It is, of course, possible to use a specific array declaration state¬ 
ment and let the compiler construct a table of the data needed for 
the checks to be carried out. This removes the objection relating to 
parameter passing, and leaves the more minor one of economy. As 
the saving is not that large, it is perfectly feasible to do this; but 
mechanisms arc available for implementing arrays that construct 
the table referred to and, in so doing, provide a very general imple¬ 
mentation that is capable of using the same code to build arrays of 
any number of dimensions. In the circumstances, most languages 
use one or other of these in preference to adopting the ‘specific’ 
route. 

This section looks at just one of the general methods, known as a 
Dope Vector implementation. In essence, this method constructs a 
table of information about the array, including the number of 
dimensions, the highest (and usually the lowest) value that each 
subscript can have, and so on. It then uses this information to calcu¬ 
late the address of the specified element whenever the program 
wishes to access it. Before the code can be discussed, it is necessary 
to consider the ideas behind the method in some depth. 

One-dimensional arrays 

Consider the declaration of an array of the form shown in Figure 
10.11, where the subscript docs not necessarily start from 0 or from 
1. In this declaration, both the highest (U) and the lowest (L) value 


VAR A : ARRAY [ L .. U ] OF INTEGER; 
Fig. 10.11. Form of an array declaration in Pascal 


114 



of the subscript are specified. (In case you do not know Pascal, this 
is an example from that language.) Computers, however, are not 
usually enthusiastic about subscripts that start above zero. To make 
life easier, therefore, it is usual to convert subscripts to a zero base. 
This is done by the simple expedient of subtracting C from the 
required subscript and using this as if it were a subscript for a differ¬ 
ent array (S, say). In other words, whenever the programmer refers 
to A[7], the computer converts this reference to S(7 —L). This means 
that A[L] is the same storage location as S(L—L), or S(0); A[L+1] 
is S(L+1 — L), or S(l); A[L + 2] is S(L + 2 — L), or S(2); and so on. 
S(0) is known as the Base Address of the array. 


Two-dimensional arrays 

What about the two-dimensional array, such as the Pascal array 
defined in Figure 10.12? Most computers are not capable of hand¬ 
ling two-dimensional data structures, so the implementation has to 
break such objects up into structures with which it can deal. Since 
computers can deal with a one-dimensional structure (usually refer¬ 
red to as a ‘vector’), can we break a two-dimensional object into one 
or more of these vectors? 

The answer, of course, is yes. A grid (such as a noughts and cross¬ 
es square) can be broken into a number of rows or a number of col¬ 
umns, or indeed in more complex ways. Restricting ourselves to the 
first two possibilities, the two-dimensional Pascal array 

VAR A2 : ARRAY [ 5..6,2..4 ] OF INTEGER 

can be laid out in RAM either as shown in Figure 10.13a (where all 
the elements in the same column are next to each other, hence 
known as Column-Major Ordering), or as shown in Figure 10.13b 
(where all the elements in the same row are next to each other, hence 
known as Row-Major Ordering). It does not matter which of these 
orders is assumed, though the calculations detailed below differ for 
the two assumptions; the rest of the chapter assumes Row-Major 
Ordering. 

Making this assumption, then, element A2[5,2] is S(0), and ele¬ 
ment A2[6,4] is S(5). The transformation (usually referred to as a 


VAR B : ARRAY [ 5 .. 9, 3 .. 7 ] OF INTEGER; 

Fig. 10.12. A two-dimensional array declaration in Pascal of a 
5x5 matrix 
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Zero-based address 


Array element 


S(0) 

S (1) 

S ( 2) 

S( 3) 

S (4) 

S( 5) 

Fig. 10.13a. Arrangement 
Row-Major Ordering 


A2(5,2) 

A2(6,2) 

A2(5,3 ) 

A2(6,3) 

A2 (5,4 ) 

A2 (6,4) 

array elements in RAM for 


Zero-based address Array element 


S(0) 
S(l> 
S ( 2) 
S( 3) 
S (4) 
S ( 5) 


Fig. 10.13b. Arrangement 
Column-Major Ordering 


A2(5,2 ) 
A2(5,3) 

A2(5,4 ) 

A2(6,2 ) 

A2(6,3) 

A2(6,4) 

( array elements in RAM for 


‘mapping’) of the two-dimensional address into a one-dimensional 
address can be seen to be 

N = (Subscript 1 — 5)*3 4- (Subscript2 — 2) 

Using this calculation, A2[Subscriptl, Subscript2] is the same ele¬ 
ment as S(N). 

Where do the constants 5, 3 and 2 in the above calculation come 
from? If you look at the definition of A2, the 5 is the lowest value that 
the first subscript is allowed to have (referred to as the ‘lower bound’ 
of the first subscript), the 2 is the lower bound of the second sub¬ 
script, and the 3 is the number of elements in the row (i.c. 
U2 — L2 4- 1 = 4 — 2 4- 1 = 3). If we go on to consider the general 
form of declaring a two-dimensional array, we could write: 

VAR M2 : ARRAY [ L1..U1 , L2..U2 ] OF INTEGER 

where LI and U1 are the lower and upper bounds of the first sub¬ 
script, and L2 and U2 arc the lower and upper bounds of the second. 
The address S(N) of element M2[U,I2] is found by performing the 
calculation 

N = (II - L1)*R2 4- (12 -L2) 

where R2 is the number of elements in each row of M2 (in other 
words, U2 — L2 4- 1). 
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Multiple dimensions 

Now consider the declaration of an array of three dimensions: 

VAR A3 : ARRAY [ 3..4,6..8 , -4..-1 J OF INTEGER 

The elements of the array will appear in core in the order shown in 
Figure 10.14 (assuming row-major ordering), with all the elements 

Zero-based address Array element 


S(0) 

A3(3,6,-4 ) 

S(l) 

A3(3,6,-3) 

S (2) 

A3(3,6,-2) 

S( 3) 

A3(3,6,-1) 

S (4) 

A3(3,7,-4) 

S ( 5) 

A3(3,7,-3) 

S (6) 

A3(3 f 7,-2) 

S ( 7 ) 

A3(3,7 , -1) 

S (8) 

A3(3,8,-4) 

S ( 9) 

A3(3,8,-3) 

S (10) 

A3(3,8 , -2 ) 

S (11) 

A3(3,8,-1) 

S (12) 

A3(4,6 , -4) 

S (13 ) 

A3(4,6,-3) 

S (14) 

A3(4,6,-2) 

S (15 ) 

A3(4,6,-1) 

S (16) 

A3(4,7,-4) 

S (17 ) 

A3(4,7,-3) 

S (18) 

A3(4,7,-2 ) 

S (19 ) 

A3(4,7,-1) 

S (20) 

A3 (4,8,-4) 

S ( 21) 

A3(4,8,-3) 

S (22) 

A3(4,8,-2) 

S( 23 ) 

A3(4,8,-1) 


Fig. 10.14. Arrangement of array elements in RAM for 
Row-Major Ordering 


of Row 3 together; within that group, all the elements of 
Subscript2=6 are together. Indeed, any n-dimensional array using 
row-major ordering will keep together all the elements with the same 
first subscript value; within them, all the elements with the second 
subscript value are together; within them . . . , and so on. Such an 
array is, in effect, a hierarchy of arrays each of (n — 1) dimensions. 

If you look carefully at the correspondence between the address of 
an element of S and that of an element of A3, you should find that 
the value N for S(N) can be calculated as 

N = (II - 3)*12 + (12 - 6)*4 + (13 + 4) 

where II is the first subscript, 12 the second, and 13 the third. Thus 
for A3[4,7, —2], N is calculated as 

N = (4 - 3)* 12 + (7 - 6)*4 + (-2 + 4) = 18 
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and checking Figure 10.14 shows that A3[4,7, — 2] is the same ele¬ 
ment as S (18). 

If you compare that calculation with the one we did for two- 
dimensional arrays, you should see some similarities. In particular, 
the (7 - 6) is (12 - L2), the 4 is R3 (where R3 = U3 - L3 + 1), 
and ( — 2 4- 4) is the (13 — L3). For three dimensions we have an 
extra term in the calculation, and for this the (4 — 3) is simply 
(II — LI), in the same pattern as the other terms; the 12 is still the 
number of elements in the row, but now that is the product of R2 (3) 
and R3 (4). 

In general, for an array of three dimensions declared as 

VAR M3 : ARRAY [ L1..U1 , L2..U2 , L3..U3 ] OF INTEGER 

the calculation of N can be performed as 

N = (II - L1)*R2*R3 + (12 - L2)*R3 4- (13 - L3) 

If we were to write out an example for arrays of four, five and six 
dimensions, the pattern of the calculation should become obvious. It 
is this: for an array of n dimensions, the calculation is 

N = (II - L1)*D1 4- (12 - L2)*D2 + ... + (In - Ln)*Dn 
where D1 = R2 * R3 * R4 * ... * Rn 
D2 = R3 * R4 * ... * Rn 
D3 = R4 * ... * Rn 

and so on, with Dn = 1. The values of the Dj’s may also be written 
as 


D1 = R2 * D2 
D2 = R3 * D3 

and so on. We can then use a loop to calculate the values of the Dj, 
starting with Dn = 1 and then calculating D(n—1) to Dl. 

Once we have calculated the Dj’s, we need only keep a note of the 
values of the lower bounds (Lj’s) and we can use a loop to calculate 
the value of N. Indeed, the calculation can be made even simpler if 
we note one thing about it: 

(Ij - Lj)*Dj 

can be expanded to the equivalent 
(Ij * Dj) - (Lj * Dj) 

The value of the Ij’s will be different for different elements of the 
array; but the Lj’s have the same value regardless of which element 
is being accessed (for array A3, LI is always 3). Similarly, the Dj’s 
are always the same for an array regardless of the clement being 
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accessed. We should therefore be able to carry out the calculations 
for the (Lj * Dj)’s just once, rather than every time an element is 
accessed. 

If we rewrite the calculation of N given above with this in mind, 
we get 

N = ( II * Dl) + ( 12 * D2) + ... + ( In * Dn) 

- (LI * Dl) - (L2 * D2) - ... - (Ln * Dn) 

Since all the (Lj * Dj)’s are independent of the element being acces¬ 
sed and hence are known when the array is declared, we can further 
rewrite the above calculation as 

N = (II * Dl) + (12 * D2) + ... + (In * Dn) 

— the sum of the (Lj * Dj)’s 

If we look to sec how well this works with the array A3, we get the 
following: 

n = 3 

D3 = 1 (by definition) 

D2 = D3 * R3 = 1 * ((-1) - (-4) + 1) = 4 
Dl = D2 * R2 = 4 * (8 - 6 + 1) = 4 * 3 = 12 
SUM(Lj * Dj) = 3*12 + 6*4 + (—4)*1 = 56 

and hence 

N = (II * 12) + (12 *4) + (13 * 1) - 56 

Try checking this for yourself by looking up the value of N (from 
Figure 10.14) for various values of 11, 12 and 13. 

This is a very general mechanism, which as a byproduct gives you 
the total number of elements in the array (Dl * Rl, which helps you 
to check your calculations and is sometimes referred to as DO); it is 
applicable to any number of dimensions (the loops just last longer). 
However, the value of N obtained from the calculation is only a 
‘relative’ address: it only gives the element position relative to S(0). 
If each element takes up four bytes, we need to multiply N by 4 to 
get a byte address; but that is still an address relative to S(0). To 
obtain the machine address of an element (in the same form as a 
VARIABLE’S address), we must add the address of S(0) to the rela¬ 
tive byte address. 


Implementation of the Dope Vector method 

Figure 10.15 provides a description of this type of array implementa¬ 
tion. Figure 10.15a describes the layout of the Dope Vector, and it 


FFM-I 
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should be obvious that the addresses of values within the Dope Vec¬ 
tor are dependent on the number of dimensions. The size of the 
Dope Vector is 6N 4- 3 bytes: 1 byte for N, 2 for the (negated) value 
of the sum of the LjDj’s, 2N for the N value of the Dj’s, and 4N for 
the N values of the lower bounds and the N values of the upper 
bounds. 

Figure 10.15b shows how the facility can be used to declare an 
array, and Figure 10.15c how an clement of the declared array can 
then be accessed. There arc two basic methods of declaring arrays: 
forcing the user to write the bounds in at the time of writing (as Pas¬ 
cal does), or allowing him to read in the values of the bounds (as 
BASIC does). The former was adopted, and as an exercise you can 
change it to the latter. 


Block 160: 


DV+0 

+ 1,2 

+ 3,4 


N [ Number of dimensions ] 

-Sigma LiDi [ to reduce offset of 1st element 
to zero ] 

Dn [ Number of elements in the Nth dimension ] 


+2N+1,2 


Dl [ Number of elements in the 1st dimension ] 


+2N+3,4 : Ln [ Lower bound of Nth dimension ] 
+2N+5,6 : Un [ Upper bound of Nth dimension ] 


+6N-1,0 : Ll [ Lower bound of 1st dimension ] 
+6N+1,2 : Ul [ Upper bound of 1st dimension ] 


+6N+3—> : Array elements, 2 bytes per element 


Fig. 10.15a. Layout of Dope Vector and Array elements 


Block 161: 


Arrays are declared by a statement like: 

ARRAY name n Ll Ul L2 U2 . Ln Un 

where 'name' is the required name of the array 
'n' is the number of dimensions 

Ll is the lowest permittea value for first subscript 
Ul is the highest permitted value for first subscript 


Ln is the lowest permitted value for Nth subscript 
Un is the highest permitted value for Nth subscript 

Eg. ARRAY TABLE 21516 

declares an array called TABLE with 5 rows and 6 columns, 
as does 

ARRAY ANOTHERTABLE 2 16 20 -5 -1 

Fig. 10.15b. How to declare an array 
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Block 162: 


To access element l f l of TABLE, write 
1 1 TABLE @ 

and the value in TABLE[1,1] will be put on the stack. 

To store a 121 in element 17,-3 of ANOTHERTABLE, write 
121 17 -3 ANOTHERTABLE ! 

and 121 will be stored in ANOTHERTABLE!17,-3]. Thus the 
Pascal equivalent of 

ANOTHERTABLE[20,-1]:=ANOTHERTABLE[17,-5] 
is 

17 -5 ANOTHERTABLE @ 20 -1 ANOTHERTABLE ! 

Fig. 10.15c. How to access array elements 

The basic approach is given (as FORTH code) in Figure 10.16. 
At declaration time we need to enter the name of the array in the 
dictionary using CREATE, and then construct the Dope Vector 
(which is what SETUP-DOPEVECTOR does). Then, when the 
array is used, we need to calculate the relative address of the element 
(using FORM-OFFSET) and convert it to an absolute address by 
taking note of the number of bytes per element and adding the Base 
Address (which, of course, is the address of the Dope Vector plus 
6N 4- 3). This is what GET-ABS-ADDR does. 

That would be sufficient if programmers, having declared an 
array of 10 elements, never made the mistake of trying to access an 
eleventh element. Following the maxim of trying to protect prog¬ 
rammers against their own folly, we should ensure that all the sub¬ 
scripts are within the range of values given when the array was 
declared. Thus SUBS-OK? carries out this check, and if they are 
OK the address of that element is calculated; if one or more of the 
subscripts are out of range, an error is reported by SUBS-ERROR 

Block 163: 

: ARRAY 
CREATE 

SETUP-DOPEVECTOR 
DOES > 

>R 

SUBS-OK? 

IF 

FORM-OFFSET 
GET-ABS-ADDR 
ELSE 

SUBS-ERROR 
ABORT ( 

THEN 
R> DROP 

Fig. 10.16. T op-level design of array implementation 


( Set up dictionary entry for array name ) 
( Create the Dope Vector ) 

( Save address of the Dope Vector ) 
( Check subscripts are all valid ) 

( Add Sigma IjDj giving relative address ) 
( Form absolute address of element ) 

( Print suitable error message ) 
and stop the program, clearing the stack ) 

( Tidy up the Return Stack ) 
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and the program terminated by ABORT. Finally, since the address 
of the Dope Vector (the Parameter Field Address of the array name) 
is wanted by a number of routines, it is saved on the Return Stack on 
entry to the run-time code (after DOES>) and thrown away again 
at the end. 

This program structure is not the most efficient design as far as 
speed of running and minimal calculation is concerned. As an exam¬ 
ple, some of the routines produce (as a byproduct) values that are 
useful to other routines, but normally those have been discarded and 
recalculated by the other routines. Similarly, calling subroutines 
creates overheads, albeit very small ones. However, the minor 
increase in running time is a very small price to pay for the increase 
in readability of the program and the comparative ease with which it 
can be amended. For instance, if you wanted to remove the check 
performed by SUBS-OK? it is easy to do so. You do not have to try 
to find the individual FORTH instructions (often buried in a mass 
of other instructions) that carry out the task. 

Rather than being described in detail, each routine is shown in 
Figure 10.17. Two important points should be made before you dive 
in to look at them. 

The first point concerns the use of the Return Stack for saving 
values. The >R before SUBS-OK? is called in Figure 10.16 saves 
the address of the Dope Vector on the Return Stack, as stated above. 
When SUBS-OK? then wants a copy of it (as in line 3 of its defini¬ 
tion, when obtaining the number of dimensions using C@), it ought 
to use R@ to get it. However, as you can see from the code, it uses 
the word I’ instead. This is because, after the address of the Dope 
Vector is placed on the Return Stack, SUBS-OK? is called; this call 
then places its Return Address (i.e. the address of the IF statement 
in Figure 10.16) on the Return Stack, above the Dope Vector’s 
address. R@ would, inside SUBS-OK? obtain the Return Address, 
and so I’ must be used to obtain the address of the Dope Vector. 

The second point relates to two new words, PICK and ROLL, 
which are used in the example. PICK is a word that copies any 
given element on to the top of the stack. Thus 

9 8 7 6 5 4 4 PICK 

will copy the fourth item on the stack (not counting the parameter to 
PICK) on to the top, making the stack 

9876547 

The word OVER could therefore be defined as 
2 PICK 
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Block 164: 


SETUP-DOPEVECTOR 

HERE 

GET-NR-DIMS 
DUP >R 
DUP C, 

6*2+ ALLOT ( 
GET-BOUNDS ( 
GET-Ds 

GET-SPACE ( 
STORE-Ds 
CALC-SIGMA-LjD j 
NEGATE SWAP 1+ 
R> DROP 


( Save address of Dope Vector on the stack 
( Get the number of dimensions, N 
( Save N on the Return Stack 
( Insert N into the first byte of the DV 
( Allocate 6N+2 bytes for the rest of the DV 
Store the N values of lower and upper bounds 
( Calculate the values of the Dj's 
Allocate space for the elements of the array 
( Store the Dj's in the Dope Vector 


Store -Sigma LjDj in the DV 
( Tidy up the Return Stack 


Fig. 10.17. Screen 1 of 11 


Block 165: 


: GET-NR-DIMS 

32 WORD NUMBER ( Read number from the input stream ) 


: GET-BOUNDS 

HERE 4 - ( Get address for Nth lower bound ) 

I' 0 DO ( For each dimension, get bounds from input stream:) 
GET-NR-DIMS OVER ! ( Store lower bound ) 

2+ ( Get address for Nth upper bound ) 

GET-NR-DIMS OVER ! ( Store upper bound ) 

6 - ( Get address of previous lower bound ) 

LOOP 

DROP ( Get rid of unwanted address ) 


Fig. 10.17. Screen 2 of 11 


Block 166: 


: GET-Ds 
1 

I' ( Get N - using I' 
2* 5 + 3 PICK + 

I ' 0 DO 
DUP @ 

OVER 2- @ 

- 1 + 

3 PICK 
* 

SWAP 4 + 

LOOP 

DROP 


( Set up Dn ) 
because R@ gets the return address! ) 
( Get address of Nth upper bound ) 
( For each dimension: ) 
( get the upper bound ) 
( and the lower bound ) 
( and form Rj ) 
( Copy previous Dj value ) 
( and form new Dj ) 
( Move to next upper bound ) 

( Get rid of unwanted address ) 


Fig. 10.17. Screen 3 of 11 


123 



Block 167: 


: GET-SPACE 

0 ( Use to initialise elements to zero ) 

SWAP ( Get DO, the number of elements in the array ) 

0 DO ( For each element: ) 

DUP , ( Allocate 2 bytes and store the zero ) 

LOOP 

DROP ( Get rid of the zero ) 


Fig. 10.17. Screen 4 of 11 


Block 168: 


: STORE-Ds 
I* 1+ PICK 
1+ I* 2* + 

I ' 0 DO 

SWAP OVER ! 
2 - 

LOOP 

DROP 


( Get the address of the Dope Vector ) 
( Form the address of Dl ) 
( For each dimension: ) 
( store the Dj value ) 
( and move back to next Dj's address ) 

( Get rid of the final address ) 


Fig. 10.17. Screen 5 of 11 


Block 169: 


CALC-SIGMA-LjD j 
0 

OVER 3 + 

I' >R 
0 DO 
DUP @ 

OVER 
J 
2 
§ 


R@ 


+ 12 * 


* ( Form LjDj 

SWAP 2+ 

LOOP 
R> DROP 
DROP 

Fig. 10.17. Screen 6 of 11 


( Initialise total 
( Form address of Dn 
( Save another copy of N on the Return Stack 
( For each dimension: 
( get the value of Dj 
( copy address of Dj 
( get N - using J because inside a DO loop 
( form address of Lj 
( and hence get value of Lj 
) ROT + ( and add to total 

( Move to address of next Dj 


( Tidy up the Return Stack 
( Get rid of unwanted address 


The word ROLL is a more general form of ROT. Given the stack 
987654 
the instruction 
5 ROLL 

will bring the fifth item to the top and push the four items above it 
down the stack, giving 

976548 
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Block 170: 


SUBS-OK? 

1 

I' C@ 

2* 3 + I' 


C@ @ DO 
DUP @ 

14+ PICK 
< = 

OVER 2+ @ 
15+ PICK 


( Initialise result to True ) 
( Get N ) 
( Form address of Ln ) 
For each dimension/subscript: ) 
( Get lower bound ) 
( Get subscript ) 


( Check subscript not less than lower bound ) 

( Get upper bound ) 
( Get subscript again ) 
>= ( Check subscript not greater than upper bound ) 

AND ROT AND ( Update Boolean result ) 

SWAP 4 + ( Move to next set of bounds ) 

LOOP 

DROP ; ( Get rid of unwanted address ) 


Fig. 10.17. Screen 7 ofll 


Block 171: 

: FORM-OFFSET 
I' 1+ @ 

I' >R ( Save second copy of 
R@ C@ 0 DO 
SWAP 

J ( Get address of DV 
3 + I 2* + 

@ * 

+ 

LOOP 
R> DROP 


Fig. 10.17. Screen 8 of 11 


( Get -Sigma LjDj ) 
the DV address on Return Stack ) 
( For each dimension/subscript: ) 
( Get a subscript ) 
using J because in a DO loop ) 
( and form address of Dj ) 
( Form I j *D j ) 
( and add to -Sigma LjDj ) 

( Tidy up the Return Stack ) 


Block 172: 


( Figure 10.17: Screen 9 of 11 ) 

: GET-ABS-ADDR 


( Multiply offset by number of bytes per element ) 
( Get number of dimensions ) 

) 
) 
) 


2 * 

I* C@ 

6*3+ ( Form 6N+3, the length of the Dope Vector 

I* + ( Form address of the first element of the array 

+ ( and add to the relative address of required element 


Fig. 10.17. Screen 9 of 11 


Block 173: 


: SUBS-ERROR 

CR ." Invalid subscripts: 
1 I' C@ DO ( 

I ROLL ( Bring 


From N down to 1 
bottom subscript 


-1 +LOOP 
CR 


in steps of -1: ) 
to top of stack ) 
( and print it ) 


Fig. 10.17. Screen 10 of 11 
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Block 174: 


( Figure 10.17: Screen 11 of 11 ) 

( Routines for those Forth systems without them, or with 

versions not in agreement with the Forth-79 Standard ) 

: NUMBER 

DUP 1+ C@ 45 = ( Check for leading minus sign ) 

IF 1+ -1 ELSE 0 THEN SWAP ( Skip a mark if negative ) 

0 0 ROT CONVERT DROP DROP ( Convert positive number ) 
SWAP IF NEGATE THEN ( If marked as negative, negate number ) 

: NOT 0= 

: >= < NOT 

: <= > NOT 

: 2* DUP + 

: C, HERE 1 ALLOT C! ; 

( If you haven't got C! either, : C, HERE 1 ALLOT ! ; 

will work as well ) 

Fig. 10.17. Screen 11 of 11 


ROT could therefore be defined as 
3 ROLL 

As with other examples, some routines have been provided (as 
block 174 in Figure 10.17) for those whose systems do not have 
them, particularly for the NUMBER word, which may well not be 
consistent with the version given in the figure. Figure 10.18 is a ‘load 
block’ which loads the screens of definitions in the required order. 


Block 175: 

174 LOAD ( This block may be omitted AS LONG AS your Forth 

system has exactly the same version of NUMBER and 
has the other listed words ) 

165 LOAD 166 LOAD 167 LOAD 168 LOAD 169 LOAD 
170 LOAD 171 LOAD 172 LOAD 173 LOAD 
164 LOAD 
163 LOAD 

Fig. 10.18. Load block for Fig. 10.16 and 10.17 
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11 

Versions of FORTH 


As stated in Chapter 1, there are two main versions of FORTH: 
FORTH-79 (together with some or all of the ‘extras’ suggested by 
the Standard), and fig-FORTH. These two are highly compatible, 
as fig-FORTH is almost exactly a superset of FORTH-79. However, 
not all implementations of fig-FORTH have all the words in the set 
(one such being that for the Dragon), and there is the occasional ver¬ 
sion that is neither FORTH-79 nor fig-FORTH (such as that of the 
Jupiter Ace). This chapter highlights some of the important differ¬ 
ences between the different systems. 

In addition to the material below, Appendix 2 gives a glossary of 
FORTH words covered in this book, indicating whether they are 
present in each of the versions of FORTH discussed here. Your par¬ 
ticular version may not conform to any of those covered by this 
book, so check the list against your own implementation’s instruc¬ 
tion book. 

This chapter is organised into three sections: fig-FORTH, Dragon 
FORTH and the Jupiter Ace. Within each section, differences are 
dealt with chapter by chapter. You can use this to check for differ¬ 
ences between FORTH-79 and the FORTH you are using before 
you actually try any of the examples. In some cases, definitions of 
the missing word(s) are given below where this does not involve con¬ 
siderable rewriting of the FORTH code given in the examples and 
sample answers. 


fig-FORTH 

The following comments apply to nearly all versions of fig-FORTH. 
However, some implementations have more words missing from 
their vocabulary than arc listed here. As a particular example of 
this, the Dragon has been selected for separate treatment, and 
owners of it should check the next section in addition to the detail 
below. 
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Chapters 2 and 3 

No amendments are needed. 


Chapter 4 

The word NOT (page 35) is not defined in fig-FORTH. It has the 
same effect as 0=, which is usually used in its place. If you want to 
avoid having to remember this, use the definition 

:NOT 0=; 

It may be worth noting that the word THEN may be replaced by the 
word ENDIF. These two words both do the same thing, but ENDIF 
is a more logical name. 


Chapter 5 

For the list of Return Stack operators, the word J may be missing. It 
is relatively rarely used, but a simple definition may be useful as 

: J R> R> I ROT ROT >R >R ; 

The operator R@, used in later examples, appears simply as R in 
fig-FORTH. To avoid having to remember to make the changes in 
the rest of the figures, you may prefer to insert the definition 

: R@ R; 

The word + LOOP has a different effect for negative increments 
than the word in FORTH-79. Information on this difference is given 
on page 35. END can be used instead of UNTIL in the same way 
that ENDIF could be used instead of THEN for an ‘if statement. 


Chapter 6 

U. (introduced on page 56) may not be present. It can be defined as 

: U. 0 <# #S #> TYPE ; 

The meaning of these statements becomes clear in Chapter 8. 

Chapter 6 introduces double-length operators in passing (page 
57); note that DNEGATE is present in fig-FORTH as DMINUS. 
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Chapter 7 


VARIABLE (and 2VARIABLE) is different from that given in the 
FORTH-79 Standard, as it requires an initial value for the declared 
variable. This point is covered on page 68. 


Chapter 8 

Whereas in the FORTH-79 version SIGN expects the number to be 
tested to be on top of the stack (see page 82), the fig-FORTH word 
SIGN expects it to be below the double-length number being con¬ 
verted to characters. Thus whereas the examples have 

ROT SIGN 

in the code to insert a ‘ —’ sign if appropriate to do so, the same 
example in fig-FORTH should omit the ROT, giving simply 

SIGN 

On page 89 the word SAVE-BUFFERS is introduced, together 
with its alternative name FLUSH, but fig-FORTH uses only the 
word FLUSH. It should also be noted that the FORTH-79 variable 
>IN is known more simply as IN by fig-FORTH. 


Chapter 9 

The instruction book for your implementation should be checked for 
the example definition of a recursive function given as Figure 9.14. 
This point is mentioned in the text. 


Chapter 10 

Two words (PICK and ROLL) that are used in the examples in 
Chapter 10 are not defined in fig-FORTH. They can be defined as 

: PICK 2* SP@ OVER 1 < SWAP ROT + SWAP OVER SO @ >= OR 
IF .“ PICK parameter out of range ” CR ABORT 
ELSE @ THEN 


. ROLL 2* SP@ OVER 1 < SWAP ROT + SWAP OVER SO @ >= OR 
IF ROLL parameter out of range ” CR ABORT 
ELSE DUP @ >R SP@ 2+ SWAP 
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DO I 2- @ I ! -2 +LOOP 

DROP R> 

THEN 

Both the definitions rely on the parameter stack growing downwards 
from high memory; I do not know of a system that is not 
implemented in this way. SP@ is a word that places the address of 
the current top of the stack (as it was before SP@ is executed) onto 
the stack; SO is a variable that cc tains the address of the start (i.e. 
bottom) of the stack. Both defir .dons include checks for accessing 
above the current top of stack and below the bottom of stack. 

In addition to these two wor A s, the NEGATE in line 12 of block 
164 of Figure 10.17 needs to b( changed to MINUS. 


Dragon FORTH 

The version on the 3ragon is fig-FORTH, but it is a subset. The 
comments in this s< :tion arc additional to those given in the pre¬ 
vious section. 


Chapters 2 and 3 

No amendments are necessary. 


Chapter 4 

The ‘not equal to’ operator <> (page 34) is not present. The sim¬ 
plest definition is as stated in Chapter 4: 


Chapter 5 

The Return Stack operator I’ (Table 5.1) is not present. As this will 
be used in later chapters, it would be useful to include it yourself. A 
simple definition might be 

r R> I SWAP >R; 
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Chapter 6 

The Dragon omits many of the words in Chapter 6. TEXT is not 
present, but as it is not subsequently used this is not important. 
Neither CONVERT nor >BINARY (page 54) is present, so the 
exercises using them cannot be carried out. However, as the main 
object of those exercises was to write the word NUMBER, and this 
word is provided for us, this is not a problem either. 

The U< operator (page 56) is not present, but if you would like to 
try the examples a definition is given by 

: U< OVER 0< OVER 0< = IF < ELSE 0< SWAP DROP 
THEN ; 

Of the double-length operators listed in Tables 6.1, 6.4 and 6.5, 
only D+ and D. are present, though as none of the later work relies 
on them this is unimportant. None of the double-length operators of 
this section are present either. It is a better story with the mixed- 
length operators in Table 6.3, with only M + , M —, and M*/ miss¬ 
ing. 

Table 6.5’s operators 2* and 2/ are missing. While 2/ is not used 
later in the book, 2* is, and it would be worth including the defini¬ 
tion of it: 

: 2* DUP + ; 

HEX is present but OCTAL is not (page 62). You learn how to 
write OCTAL for yourself in Chapter 7, so I suggest you play with 
just HEX and DECIMAL for the moment. 


Chapter 7 

The double-length operators of pages 68-69 are not present, nor is 
CVARIABLE. As you learn how to write CVARIABLE for yourself 
in Chapter 9, forget it for the present. 


Chapter 8 

While the Dragon is screen oriented, the use of some of the input and 
output words (such as FLUSH) will differ depending on whether 
you have disks or not. The principle is the same, but the code you 
actually write might have to be different. Check your instruction 
book for details. 
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Chapter 9 


The Dragon does not use MYSELF as the means to construct a 
recursive call. Again, check your instruction book. 


The Jupiter Ace 

This particular micro is neither fig-FORTH nor FORTH-79, so it 
does not fit this book too well in places. In particular, its input and 
output are not screen oriented, and therefore Chapter 8 (page 85 
onwards) is not relevant to it. That in turn means that some of the 
later material cannot be easily run on the Jupiter, and you may run 
into memory-space problems with Chapter 10! 

While I am not a fan of the Jupiter Ace, it does have some 
interesting features as well as some major differences from FORTH- 
79. The following list (again separated into chapters) is not intended 
to be exhaustive, but highlights some of the main differences. 


Chapter 2 

The Jupiter provides floating-point numbers as a standard facility. 
This feature introduces the operators F*, F+, F—, F/, F., FNE- 
GATE, INT (to convert a floating-point number to an integer) and 
UFLOAT (to convert back again). 


Chapter 3 

FORGET (page 29) is augmented by the word REDEFINE, which 
allows a new definition to overwrite an old one. This avoids a build¬ 
up of RAM that contains old (usually incorrect) versions of words. 


Chapter 4 

NOT (page 35) and <> (page 34) are not present; see pages 128 
and 130 respectively for suitable definitions. 
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Chapter 5 

R@ is not provided, but I is a suitable alternative name. If you do 
not wish to have to remember this for all the following examples, put 
in the definition 

R@ I; 

+ LOOP is the fig-FORTH version. See the comments on page 
128 and the text on page 45 for how it works. 


Chapter 6 

There are some major differences here, as EXPECT is not provided 
on the Jupiter. All its input is done using WORD (together with 
some supplementary words it provides), but some of the subsequent 
exercises use EXPECT and are more difficult to do without it. You 
can simulate EXPECT by including the following definitions: 

: WAIT 1500 0 DO LOOP; 

: KEY WAIT BEGIN INKEY ?DUP UNTIL WAIT ; 

: EXPECT 
ODO 

KEY DUP EMIT 
DUP ASCII ~ = 

IF DROP LEAVE 
ELSE OVERC! 1 + 

THEN 
LOOP 
0 SWAP C! 

This version of EXPECT uses the ~ to end the input instead of a 
carriage return; if you wish to revert to the standard CR character, 
replace ‘ASCII with T3\ (The WAIT instructions are absolutely 
essential to debounce the keyboard!) KEY is not present either, but 
the above definition works quite happily. 

NUMBER is provided, but is slightly different from the version 
assumed in this book: the top-of-stack entry is an integer that indi¬ 
cates whether the number below it is an integer or a floating-point 
number. Wherever the word NUMBER appears in the examples, 
you should write NUMBER DROP. 

Of the double-length operators in Table 6.1, D—, D/, D*, D= and 
DU< are absent (none of them are used in this book). The double¬ 
length stack operators have only the 2DUP missing. Only the 
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standard */ and */MOD mixed-length operators are provided (page 
59). 

Of Tables 6.4 and 6.5, only the DMIN, DMAX, 2* and 2/ oper¬ 
ators are missing. Only the 2* is used much in later chapters, and it 
may be worth entering its definition from page 131. 

As with the Dragon, HEX and DECIMAL are present, but 
OCTAL is not. I suggest you play with these two and check the use 
of OCTAL after you have learned how to define it for yourself (in 
Chapter 7). 


Chapter 7 

You should not enter Figure 7.1a as a word, as ASCII is already 
provided on the Jupiter Ace and the definition in the figure will not 
work (see the Chapter 9 section below for more details). 

The comments regarding VARIABLES also apply to the Jupiter. 
While the Jupiter does not provide the CVARIABLE mentioned on 
page 65, it does use them; BASE is a one-byte variable, for instance, 
though in most other FORTHs it is a two-byte variable. 

CMOVE (page 76) is not provided. One definition of it is 

: CMOVE 0 DO OVER I + C@ OVER I 4- C! LOOP DROP DROP 


Chapter 8 

The Jupiter does not use screens for input, and therefore much of 
Chapter 8 (pages 85 onwards) is not relevant. 


Chapter 9 

The section on complex data structures (page 96) and subsequent 
examples need to be slightly different. For the defining words that 
include a DOES> in them, the definition must start with DEFINER 
rather than a colon. So Figure 9.8 would appear as 

DEFINER CONSTANT CREATE , DOES> @ ; 

instead of as given in the text. 

Compilation/execution (page 98) gives rise to problems as well, as 
the Jupiter does not have STATE or [COMPILE]. This does not 
affect the examples given here, but you will not be able to test the 
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version of ASCII given in Figure 7.1a, nor will you be able to 
develop such words yourself. 

Recursion (page 103) is made very easy: the Jupiter allows a word 
to refer to itself even if the definition is incomplete. Figure 9.14 
therefore becomes 

: FACTORIAL 

DUP 0= IF DROP 1 ELSE DUP 1- FACTORIAL * THEN 


Chapter 10 

The first of the examples (Figures 10.1 to 10.10) will not run on the 
Jupiter because of the differences in input methods. 


FFM-J 
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Appendix 1 
ASCII character set 


Hex 

Dec 

Char 

Hex 

Dec 

Char 

Hex 

Dec 

Char 

Hex 

Dec 

Char 

00 

0 

NUL 

20 

32 

SP 

40 

64 

@ 

60 

96 


01 

1 

SOH 

21 

33 

i 

41 

65 

A 

61 

97 

a 

02 

2 

STX 

22 

34 


42 

66 

B 

62 

98 

b 

03 

3 

ETX 

23 

35 

# 

43 

67 

C 

63 

99 

c 

04 

4 

EOT 

24 

36 

S 

44 

68 

D 

64 

100 

d 

05 

5 

ENQ 

25 

37 

% 

45 

69 

E 

65 

101 

e 

06 

6 

ACK 

26 

38 

& 

46 

70 

F 

66 

102 

f 

07 

7 

BEL 

27 

39 


47 

71 

G 

67 

103 

g 

08 

8 

BS 

28 

40 

( 

48 

72 

H 

68 

104 

h 

09 

9 

HT 

29 

41 

) 

49 

73 

I 

69 

105 

i 

0A 

10 

LF 

2A 

42 

* 

4A 

74 

j 

6A 

106 

j 

OB 

11 

VT 

2B 

43 

+ 

4B 

75 

K 

6B 

107 

k 

OC 

12 

FF 

2C 

44 

, 

4C 

76 

L 

6C 

108 

1 

OD 

13 

CR 

2D 

45 

- 

4D 

77 

M 

6D 

109 

m 

OE 

14 

SO 

2E 

46 


4E 

78 

N 

6E 

110 

n 

OF 

15 

SI 

2F 

47 

/ 

4F 

79 

O 

6F 

111 

o 

10 

16 

DLE 

30 

48 

0 

50 

80 

P 

70 

112 

P 

11 

17 

DC1 

31 

49 

1 

51 

81 

Q 

71 

113 

q 

12 

18 

DC2 

32 

50 

2 

52 

82 

R 

72 

114 

r 

13 

19 

DC3 

33 

51 

3 

53 

83 

S 

73 

115 

s 

14 

20 

DC4 

34 

52 

4 

54 

84 

T 

74 

116 

t 

15 

21 

NAK 

35 

53 

5 

55 

85 

U 

75 

117 

u 

16 

22 

SYN 

36 

54 

6 

56 

86 

V 

76 

118 

V 

17 

23 

ETB 

37 

55 

7 

57 

87 

W 

77 

119 

w 

18 

24 

CAN 

38 

56 

8 

58 

88 

X 

78 

120 

X 

19 

25 

EM 

39 

57 

9 

59 

89 

Y 

79 

121 

y 

1A 

26 

SUB 

3A 

58 


5A 

90 

Z 

7A 

122 

z 

IB 

27 

ESC 

3B 

59 

* 

5B 

91 

f 

7B 

123 

{ 

1C 

28 

FS 

3C 

60 

< 

5C 

92 

\ 

7C 

124 

1 

ID 

29 

GS 

3D 

61 

= 

5D 

93 

1 

7D 

125 

} 

IE 

30 

RS 

3E 

62 

> 

5E 

94 


7E 

126 


IF 

31 

US 

3F 

63 

? 

5F 

95 

— 

7F 

127 

DEL 
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Appendix 2 

FORTH word references 


This appendix gives a list of all of the FORTH words used in this book, together with 
notes (under the heading ‘Version’) of which FORTH systems provide them. The 
letters used against each word indicate that that word is included in the specified 
version of FORTH given in the following key: 

D Dragon FORTH. 

E The FORTH-79 Extension Word Set (and in MMS-FORTH for the TRS-80 and 
IBM PC), 
f fig-FORTH. 

J The Jupiter Ace. 

M MMS-FORTH (for the TRS-80 and IBM PC). MMS-FORTH also includes all 
the words marked with the letters E and S. 

R The FORTH-79 Reference Word Set. 

S The FORTH-79 Standard Word Set (and in MMS-FORTH for the TRS-80 and 
IBM PC). 

A All of the above. 

Although a given word may appear in a particular word set, it may not behave in that 
version of FORTH as the text of the book expects it to. You are therefore advised to 
check Chapter 11 (and the instruction book for your implementation of FORTH) for 
any possible differences. Chapter 11 includes definitions of words that are necessary 
to the text but do not appear in one or more of the listed implementations. 


Word 

Version 

Reference Subject 

+ 

A 

Page 8 Arithmetic (two-byte) 

- 

A 

Page 8 

* 

A 

Page 8 

/ 

A 

Page 12 

NEGATE 

JS 

Fig 10.17 block 164 

MINUS 

Df 

Page 130 

1 + 

A 

Page 61 

1- 

A 

Page 61 

2+ 

A 

Page 61 

2- 

A 

Page 61 

2 * 

fR 

Page 61 

2/ 

fR 

Page 61 

MOD 

A 

Page 12 

/MOD 

A 

Page 13 

ABS 

A 

Page 61 

max 


EX4.6 
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Word 

Version 

Reference 

Subject 

MAX 

A 

Page 61 


min 


Ex4.7 


MIN 

A 

Page 61 


shift 


EX5.4 


D+ 

A 

Page 57 

Arithmetic (four-byte) 

D- 

Ef 

Page 57 


D* 

fM 

Page 57 


D/ 

fM 

Page 57 


DNEGATE 

JS 

Page 57 


DMINUS 

Df 

Page 128 


DABS 

DEfJ 

Page 61 


DMAX 

Ef 

Page 61 


DM IN 

Ef 

Page 61 


V 

A 

Page 59 

Arithmetic (mixed) 

♦/MOD 

A 

Page 59 


M+ 

fM 

Page 59 


M- 

fM 

Page 59 


M* 

fM 

Page 59 


M/ 

fM 

Page 59 


M/MOD 

fM 

Page 59 


MV 

fM 

Page 59 


SWAP 

A 

Page 13 

Stack control (two-bytes) 

DUP 

A 

Page 13 


OVER 

A 

Page 15 


ROT 

A 

Page 15 


DROP 

A 

Page 15 


PICK 

JS 

Page 122 


ROLL 

JS 

Page 122 


>R 

A 

Page 43 

Return Stack control 

R> 

A 

Page 43 


R@ 

JS 

Page 43 


R 

Df 

Page 43 


I 

A 

Page 43 


J 

A 

Page 43 


V 

fJS 

Page 43 


2SWAP 

EfJ 

Page 58 

Stack control (four-byte) 

2DUP 

Ef 

Page 58 


2DROP 

EfJ 

Page 58 


20VER 

EfJ 

Page 58 


2ROT 

EfJ 

Page 58 


< 

A 

Page 34 

Relational operators (two-byte) 

= 

A 

Page 34 


> 

A 

Page 34 


0= 

A 

Page 34 


0> 

A 

Page 34 
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Word 

Version 

Reference 

Subject 

0< 

A 

Page 34 


<> 

i'MR 

Page 34 


< = 

f M 

Page 35 


range 


EX4.2 


even 


EX4.5 


U< 

JS 

Page 56 


D0= 

EfJ 

Page 57 

Relational operators (four-byte) 

D= 

Ef 

Page 57 


D< 

EJ 

Page 57 


DU< 

Ef 

Page 57 


AND 

A 

Page 35 

Boolean operators 

OR 

A 

Page 35 


NOT 

S 

Page 35 


0= 

A 

Page 35 


IF 

A 

Page 36 

Selection 

THEN 

A 

Page 36 


ELSE 

A 

Page 36 


ENDIF 

Df 

Page 128 


DO 

A 

Page 40 

Repetition 

LOOP 

A 

Page 40 


+ LOOP 

A 

Page 45 


LEAVE 

A 

Page 45 


WHILE 

A 

Page 48 


BEGIN 

A 

Page 48 


REPEAT 

A 

Page 48 


UNTIL 

A 

Page 49 


END 

Df 

Page 128 



A 

Page 9 

Output 


A 

Page 21 


CR 

A 

Page 21 


EMIT 

A 

Page 66 


TYPE 

A 

Page 75 


U. 

JS 

Page 56 


D. 

A 

Page 57 


H. 

fMR 

EX7.4 


R 

DfMR 

Page 80; EX8.1 


<# 

A 

Page 81 


# 

A 

Page 81 


#S 

A 

Page 81 


HOLD 

A 

Page 81 


SIGN 

A 

Page 81 


#> 

A 

Page 81 


LIST 

A 

Page 86 


BLOCK 

DfS 

Page 86 


SCR 

DfS 

Page 86 


UPDATE 

DfS 

Page 88 
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Word 


Version Reference 


Subject 


BUFFER 

DfS 

Page 88 

SAVE-BUFFERS 

S 

Page 89 

FLUSH 

DfMR 

Page 89 

EMPTY-BUFFERS DfS 

Page 89 

BEK 

DfS 

Page 89 

>IN 

S 

Page 89 

IN 

Df 

Page 129 

DECIMAL 

A 

Page 62 

HEX 

DfJMR 

Page 62 

OCTAL 

fj\lR 

Page 62 

BASE 

A 

Page 70 

PAD 

A 

Page 74 

KEY 

DfS 

Page 52 

WORD 

A 

Page 53 

TEXT 

fR 

Page 53 

EXPECT 

DfS 

Page 54 

CONVERT 

JS 

Page 54 

> BLN ARY 

fM 

Page 54 

NUMBER 

DfJMR 

Page 55 

BLOCK 

DfS 

Page 86 

SCR 

DfS 

Page 86 

EMPTY-BUFFERS DfS 

Page 89 

BLK 

DfS 

Page 89 

>IN 

S 

Page 89 

DECIMAL 

A 

Page 62 

HEX 

DfJMR 

Page 62 

OCTAL 

fJMR 

Page 62 

BASE 

A 

Page 70 

PAD 

A 

Page 74 

t 

A 

Page 68 

@ 

A 

Page 69 

C! 

A 

Page 69 

c@ 

A 

Page 69 

2! 

EfJ 

Page 69 

2@ 

EfJ 

Page 69 

CMOVE 

DfS 

Page 76 

BLANKS 

DfR 

Page 88 

FILL 

DfS 

Page 88 

BL 


EX7.2 


A 

Page 18 

; 

A 

Page 19 

VARIABLE 

A 

Page 67 

2VARIABLE 

EfJ 

Page 68 

CONSTANT 

A 

Page 71 

CVARIABLE 

fM 

Page 68 

ALLOT 

A 

Page 71 

CREATE 

A 

Page 92 

HERE 

A 

Page 94 


Input 


Memory operations 


Compilation 
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Word 


Version Reference 


Subject 



A 

Page 94 

c, 

A 

Page 94 

DOES> 

A 

Page 96 

STATE 

DfS 

Page 99 

r 

A 

Page 100 

1 

A 

Page 100 

LITERAL 

Dfs 

Page 100 

IMMEDIATE 

DfS 

Page 102 

[COMPILE! 

DfS 

Page 103 

LOAD 

DfS 

Page 101 

FORGET 

A 

Page 29 

ASCII 

JR 

Fig 7.1a 

DUMP 

DfMR 

EX7.3 

MYSELF 

M 

Page 103 

ABORT 

A 

Fig 10.16 


Miscellaneous 
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Appendix 3 

Answers to self-test exercises 


Chaptc 

r 2 





( Ex2 . 

la ) 

5 6 + 7 

* 

( Ex2 . 

lb ) 

5 6 7 * 

+ . 

( Ex2 . 

lc ) 

18 

3 

4 * 

k - 2 + . 

( Ex2 . 

Id ) 

18 

3 

4 * 

* 2 + - . 

( Ex2 . 

le ) 

61 

8 

2 - 

- / 15 8 * + . 

( Ex2 . 

3a ) 

51 

4 

18 

SWAP . . . 

( Ex2 . 

3b ) 

51 

4 

18 

ROT . . . 

( Ex2 . 

3c ) 

51 

4 

18 

SWAP ROT . . . 

( Ex2 . 

3d ) 

51 

4 

18 

SWAP - . . 

( Ex2 . 

3e ) 

51 

4 

18 

* SWAP . . 

( Ex2. 

3f ) 

51 

4 

18 

SWAP MOD . . 

( Ex2 . 

3g ) 

51 

4 

18 

. /MOD SWAP . 

( Ex2 . 

3h ) 

51 

4 

18 

ROT OVER MOD + 


SWAP . 
* . ) 


) 


Chapter 3 

: EX3.1 CR Error in subroutine" CR ; 

: EX3.2 CR Error " . in subroutine" CR ; 

: EX3.3 CR SWAP Error " . ." in subroutine " . CR 


EX 3.4 

DUP * 

SWAP DUP * 

+ 

; 


EX3.5 

ROT SWAP - DUP * 

ROT 

ROT - 

DUP * + 

EX3.6 

25 / 

12 /MOD 




EX 3.7 

CR DUP 

1000 * EX3.6 





ROT . , 

." metres = " . 

, . " 

ft " . 

ins" CR 


Chapter 4 








: EX4.1 

DUP 

0< IF 3 

41 EX3.3 ( Error 3 

in subroutine 41 



ELSE 

EX3.7 THEN 





EX4.2 

ROT 

SWAP OVER 

>= ROT ROT <= 

AND 

; 



EX4 . 3 

1500 

- DUP 0< 

IF DROP 0 ELSE 10 / 

THEN 

; 


EX 4.4 

DUP 

0 9 EX4.2 

SWAP 100 999 

EX4.2 

OR 

; 


EX4.5 

2 MOD NOT ( 

or 1 AND NOT 

) 




EX 4.6 

OVER 

OVER < 

IF SWAP THEN 

DROP 

; 


( MAX 

EX4.7 

OVER 

OVER > 

IF SWAP THEN 

DROP 

; 


( MIN 

EX 4.8 

OVER 

OVER < 







IF ROT OVER OVER < 







IF DROP 

SWAP DROP ELSE 

SWAP 

DROP 

EX4.6 

THEN 


ELSE 

ROT OVER 

OVER > 







IF DROP 

SWAP DROP ELSE 

SWAP 

DROP 

EX4.7 

THEN 


THEN 
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Chapter 5 

: EX5.1 DUP 0> IF 1 SWAP 0 DO OVER * LOOP 
ELSE 1 51 EX3.3 DROP 0 

THEN SWAP DROP 

: EX5.2 DUP 0< IF 1 51 EX3.3 DROP 0 

ELSE 1 SWAP BEGIN DUP 0> WHILE 

ROT ROT OVER * ROT 1 - 
REPEAT DROP SWAP DROP THEN 

: EX5.3 0 SWAP BEGIN 10 / SWAP 1 + SWAP DUP 0= UNTIL DROP ; 

: EX5.4 DUP 0< IF NEGATE 0 DO 2 / LOOP 

ELSE DUP 0> IF 0 DO 2 * LOOP 

ELSE DROP 
THEN THEN 


Chapter 6 

: EX6.1 

CR ." N" 

BEGIN umber please? " #IN 

DUP 0 >= WHILE 

CR DUP . has " EX5.3 . ." digits" CR 

Next n" 

REPEAT 

DROP 

: EX6.2 

0 5 0 DO 

CR Enter 1 octal digit: " #IN 
SWAP 8 * + 

LOOP 


: EX6.3 5 0 DO CR ." Enter number "11+ . ." :" #IN LOOP 

5 0 DO CR 

0 DO ." *" LOOP 
LOOP CR 

: EX6.4 1 BEGIN 

CR ." Enter 1st number of pair " DUP . ." :" #IN 
CR Enter 2nd number of pair " OVER . ." :" ttlN 
OVER OVER OR WHILE 

CR DUP . " SWAP DUP . ." = " - . 

1 + 

REPEAT 
DROP CR 
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Chapter 7 

: EX7.1 ASCII * SWAP 0 DO DUP EMIT LOOP DROP ; 

: BL ( EX7.2 ) 32 

: DUMP ( EX7.3 ) 

BEGIN 

CR DUP 0> WHILE 

OVER . 3 SPACES ( Print address ) 

DUP 12 MIN 0 DO 

DUP 4 MIN 0 DO OVER C@ . 1- SWAP 1+ SWAP LOOP 
SPACE 4 + LOOP 
REPEAT DROP DROP 

: H. ( EX7.4 ) BASE @ SWAP 16 BASE ! . BASE ! 

( -32768 ) VARIABLE BIG 50 CONSTANT HIGH 
( 0 ) VARIABLE TENINTS 18 ALLOT 


: EX7.5 -32768 BIG ! ( Unnecessary for the fig-Forth version) 

10 0 DO #IN DUP TENINTS I 2 * + ! BIG @ MAX BIG ! 

LOOP BIG @ 

10 0 DO TENINTS I 2 * + @ OVER HIGH SWAP */ 

TENINTS I 2 * + ! LOOP DROP 

: EX7.6 0 PAD C! (No need to give a max number for the PAD) 

SWAP 1+ DUP C@ 1+ ( Get nr of chars in 1st string ) 

DUP IF SWAP PAD 1+ ROT CMOVE ( Move 1st non-null string ) 
ELSE DROP DROP 0 PAD 1+ C! THEN ( else note null string) 
1+ DUP C@ DUP >R ( Get nr of chars in 2nd string ) 

DUP IF SWAP 1+ PAD 1+ DUP C@ ( Find start of string 2 and ) 
+ 1+ ROT CMOVE ( end of string 1 and join ) 
ELSE DROP DROP THEN ( else drop null string ) 

PAD 1+ DUP C@ R> + SWAP C! ( Update total character count ) 
PAD ; ( Leave address of concatenated string ) 


EX7.7 
ROT >R 

SWAP DUP 1 < IF DROP 1 THEN 
SWAP OVER OVER > IF DROP DUP THEN 
R@ 1+ C@ 

SWAP OVER MIN 

ROT ROT OVER < IF DROP DROP R> DROP 
ELSE SWAP OVER - 1+ 

1 + 


( Save address of string ) 
( Ensure start >= 1 ) 
( Ensure end >= start ) 
( Get count ) 


THEN 

PAD 


SWAP R> 

PAD 2+ ROT 
DUP >R 
CMOVE 
R> 

PAD 1+ C! 


) ( Null string ) 

( Get character count ) 
( Form address of 1st character ) 
( Insert address of PAD ) 
( Save number of characters ) 
( Move the characters ) 
and put the actual count on the stack ) 


: EX7.8 

OVER 1+ C@ OVER 1+ C@ ( Get lengths of strings ) 

OVER 0= OVER 0= OR IF 

DROP DROP DROP DROP 0 ( At least one null string ) 

ELSE OVER OVER < IF 

DROP DROP DROP DROP 0 ( String 2 longer than String 1 ) 
ELSE >R ROT 2+ SWAP R@ - 1+ 0 DO ( For each substring: ) 

OVER 2+ OVER J 0 DO ( check for matching characters ) 

OVER C@ OVER C@ <> IF 0 LEAVE ELSE ( Stop if found ) 

SWAP 1+ SWAP 1+ THEN LOOP ( or increment addresses ) 

IF DROP SWAP DROP 0 LEAVE ( Substring found, so stop ) 

ELSE DROP DROP 1+ ( Not found, so inc String l's address) 
THEN LOOP R> DROP ( When search ended, tidy up Return Stack) 
IF DROP 0 ( Substring not found ) ELSE ( Form address ) 

THEN THEN THEN 
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haptcr 8 
EX 8.1 

( Stack a 1 if -ve, 0 if +ve ) 
( Find number of digits, including sign ) 
( Find number of extra spaces needed ) 
( Convert to +ve, double-length number ) 
( Convert the number to characters ) 
( Insert sign ) 
( If extra spaces are needed, ) 
IF 0 DO 32 HOLD LOOP ( fill with spaces ) 

ELSE DROP THEN 

#> ( Close string and drop double-length number ) 

TYPE 


SWAP DUP 0< 
OVER EX5.3 + 
ROT SWAP - 
SWAP DUP ABS 0 
<# #S 

ROT SIGN 
ROT DUP 0> 


EX 8.2 

>R ( Save character to be used as fill character ) 

SWAP DUP 0< OVER EX5.3 + ROT SWAP - SWAP DUP ABS 0 
<tt #S ROT SIGN ( These two lines same as EX8.1 ) 

ROT 1 MAX R> ( Ensure at least 1 fill character ) 

SWAP DUP 0> IF 0 DO DUP HOLD LOOP ( Character fill ) 
ELSE DROP THEN DROP ( and discard character ) 

#> TYPE 
EX8.3 
BLOCK CR 

2 0 DO ( Split screen into two halves ) 

512 0 DO DUP C@ EMIT 1+ LOOP ( Print one half ) 

KEY DROP ( Wait, but ignore input ) 

LOOP 


EX8.4 

OVER ABS 0 
<# ROT DUP 0> 

IF 0 DO # LOOP 
46 HOLD 

ELSE DROP THEN 
#S ROT SIGN 
tt> TYPE 


( Is the number of decimals > 0 ? ) 
( If so, print the decimal places ) 
( followed by a decimal point ) 
else drop the number of places [0] ) 
( Print the rest of the digits ) 


EX8.5 

BLK @ >IN @ ROT ( 

BLK ! 0 >IN ! 

CR ." The numbers are : " CR 
0 0 BEGIN 32 WORD NUMBER DROP 
DUP WHILE 
DUP 8 EX8.1 
+ SWAP 
1+ SWAP 


Save current screen position ) 
( Reset to new screen ) 

( Get a number ) 
and continue if not zero ) 
( Print it ) 
( Add to total ) 
( and to count ) 


REPEAT 

DROP ( Get rid of terminating zero ) 

OVER 2/ + ( Add half of divisor to total, for rounding ) 

OVER / ( Form rounded dividend ) 

CR The average of the " SWAP . numbers is " . CR 
>IN ! BLK ! ; ( Restore previous screen position ) 
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EX8.6 BUFFER >R 
0 0 BEGIN 32 WORD 
DUP 1+ SWAP C@ 
DUP WHILE 
R@ SWAP CMOVE 
C@ R> OVER + 

32 OVER C! 

1+ >R 

ROT + ( 

SWAP 1+ 

REPEAT R> DROP DROP 
SWAP OVER 10 SWAP */ 
CR ." Words = " SWAP 


( Get a new buffer 
DUP ( Get a word from the input stream 


( Get string length ) 
( Continue if not a null word ) 
( Move string to buffer ) 
( Get string length again ) 
( Insert a space in buffer ) 
( Save current output buffer position ) 
Form total number of characters so far ) 
( Increment the number of words ) 
DROP DROP ( Tidy up both stacks ) 

( Mult by 10 to give 1 decimal place ) 
CR ." Av length = " 1 EX8.4 CR 


Answers to MULTIPLES problem on page 49 


: MULTIPLES 
BEGIN 

OVER OVER < WHILE 
OVER . 

SWAP DUP + SWAP 
REPEAT 
DROP DROP 


( Keep looping while N < Max value ) 
( Print a multiple ) 
( Double N for the next iteration ) 

( Get rid of the parameters ) 
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Index 


16-bit integers, 12 
20S, 3 

32-bit numbers, 57 

Actual parameters, 19 
Allocation of storage, 71, 93 
Arithmetic, limitations, 11 
overflow, 58 
Arrays, 71, 95 
bounds, 116 
Dope Vector, 114—120 
multidimensional, 114—126 
of characters, 73 
ASCII codes, 52, 136 
Assignment, 68 

Binary value, 54 
Block, 86 
Booleans, 33 
Bottom-up, coding, 106 
Bounds, 116 

Call by name, 24, 70 
Case statement, 32 
CHAR type, 52, 68, 93 
Character, constant, 52 
input, 52 

Character string, input, 53 
literal, 65 
printing, 21 
CHR, 66 
CHRS, 66 
Coding, 106 

Column-Major ordering, 115 
Compilation, address, 99 
Compile mode, 98 
Compile-time action, 96 
Computed GOTO, 32 
CONST, 70, 96 
Constants, 70 


Defining programs, 18 
Design, top-down, 105 
Dictionary, 28, 92 
Disk operations, 87-90 
Dope Vector, 114—120 
Double-length numbers, 56, 67 
DOWNTO, 45 
Dragon, 4, 130 

Editor, 30 
Execute mode, 98 

Extension to FORTH-79 Standard, 2, 57 
False, 34 

fig-Forth, 2, 68, 127 
Floating-point numbers, 59 
FOR loop, 40 
FORGET, 29 
Formal parameters, 19 
Formatted output, 80 
FORTH-79, 2 
Function, 18, 24 

Global variables, 67 
GOSUB, 18 
GOTO, 40 
Graphics, 90 

IBM Personal Computer, 4 
Index variables, 41 
Infix notation, 3, 6, 84 
INPUT, 52 
Input, character, 52 
numeric, 54 
strings, 53-54, 74 

Jupiter Ace, 4, 68, 85, 132 

LIFO, 3 
Limit, 42 
Line input, 54 
Literals, character, 65 


147 



Load block, 113 
Local variables, 67 
Loop, FOR, 40 
nested, 46 
REPEAT, 49 
WHILE, 47 
Lower bound, 116 

Mapping, 116 
Mixed-length numbers, 58 
Multidimensional arrays, 114 

Naming conventions, 18 
NEGATE, 36 
Nested loops, 46 
NULL characters, 54 
Number, bases, 61 
double-length, 56 
floating-point, 59 
hexadecimal, 62 
input, 54 
octal, 62 
unsigned, 56 

Octal, 62 

Output, character, 66 
formatted, 80 
numeric, 9 
string, 75 
string constant, 21 

PACKED ARRAY, 74 
Parameter Field Address, 95 
Parameters, 19 
actual, 19 
formal, 19 

passed by name, 24, 69 
Pointers, 72 
Postfix notation, 6 
Procedure, 18, 24 
Program, stubs, 113 
testing, 112 


RE ADEN, 54 
Recursion, 103 
Reference Word Set, 2 
Return address, 30 
Return Stack, 30, 42 
Reverse Polish notation, 3, 6 
Row-Major ordering, 115 
Run-time action, 96 

Scaling, 60, 80 
Scratch pad, 54, 74 
Screens, 85 

Stack, cleaning up of, 24 
manipulation, 13 
Return, 30, 42 
underflow, 10, 15 
usage, 3, 8 
Standards, 2 

Storage allocation, 71, 93 
Strings, 73, 95 
comparison, 76 
moving, 76 
Subroutines, 19 
Symbol table, 28 

Testing, 112 
Top-down, coding, 106 
design, 105 
testing, 112 
TOS, 3^ 

TRS-80, 4 
True, 33 

Truncation of results, 60 

Unsigned numbers, 56 
Upper bounds, 116 

VAR, 67 

Variables, global, 67 
local, 67 

Vector, Dope, 114-120 
Virtual memory, 86 
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FORTH is a relatively new language that is rapidly catching on with 
micro users; it is easy to use and much faster than BASIC. With 
the aid of self-test questions, Steve Oakey teaches the reader to 
program in FORTH and demonstrates the use and power of this 
extensible language. 

FORTH is available now for a range of micros (ZX Spectrum, ZX81, 
BBC, Dragon 32, Oric, Acorn Atom, TRS80, Apple, Pet, Jupiter Ace 
etc.) and is gaining in popularity. This book is therefore of particular 
interest to micro enthusiasts and students of computer science. 

ISBN 0 408 01366 4 
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